Gefundene Zelle farbig markieren

Fügen Sie folgenden Ereignis-Code unter im Visual Basic-Editor in "Diese Arbeitsmappe" der entsprechenden Datei ein.

Dieses Ereignis überwacht die gerade aktivierte Zelle. Wenn das gesuchte Wort gefunden wird, wird diese Zelle aktiviert und somit der Text FETT und der Hintergrund GELB. Mit dem Schlüsselwort NOTHING wird überprüft, ob die Zelle wieder verlassen wurde, dann müssen die Formatierungen wieder zurückgesetzt werden

Nachteil bei dieser Methode: Jede Zelle, Zeile, Spalte oder jeder Bereich der aktiviert wird, wird hervorgehoben

--------------------------------

Code zum Kopieren:

Private Sub Workbook_SheetSelectionChange _

(ByVal Sh As Object, ByVal Target As Range)

Static Zelle As Range

If Not Zelle Is Nothing Then

Zelle.Font.Bold = False

Zelle.Interior.ColorIndex = xlNone

End If

Target.Font.Bold = True

Target.Interior.ColorIndex = 6

Set Zelle = Target

End Sub

--------------------------------