Hallo Leute,
Ich benutze folgendes Makro, dass einen bestimmten Zellenbereich einfärbt, sobald einer festgelegten Zelle ein bestimmtes Wort eingetippt wird. Funktioniert ganz wunderbar, solange Excel nur nach einenm Wort suchen muss. Nun soll Excel aber nach ca. 20 verschiedenen Wörtern suchen und den Zellenbereich jeweils unterschiedlich einfärben. Her erstmal das Makro:
Private Sub Worksheet_change(ByVal Target As Range)
If Target.Address = "$F$18" Then
If LCase$(Target.Text) = "wupp" Then
Range("F18:G26").Interior.Color = Range("I5").Interior.Color
Else
Range("F18:G26").Interior.ColorIndex = xlColorIndexNone
End If
End If
Ich habe versucht, dieses Makro einfach doppelt, dreifach und öfter hintereinander zu kopieren und jeweils den Suchbegriff zu ändern. funktioniert in der Praxis nicht, dass Excel dann nur den zu letzt genannten Begriff akzeptiert und alle anderen Begriffe einfach ignoriert. Auch habe ich die Zeile If LCase$(Target.Text) = "wupp" Then öfter hintereinander geschrieben, jeweils mit end if, und das zu suchende Wort geändert. War ledere ach nix. Hat jemand eine idee, wie man ex el überreden kann, nach mehr als einem Wort zu suchen und die Zellen entsprechend einzufärben?
Gruss,
Christian