|
HAllo! Das mit dem Target ist eine Ereignisprozedur. Ohne Code kann man da aber nicht helfen. Hier mal eine Variante. Ggf. noch anpassen, dass nur der Berich markiert wird. Bei mehreren Werten, eine Schleife über alle Suchwerte machen. VG
Sub zeilen_farbig()
suche = "HO"
With Worksheets("Tabelle1").Range("B2:AF29")
Set treffer = .Find(suche, LookIn:=xlValues)
If Not treffer Is Nothing Then
firstAddress = treffer.Address
Do
Rows(treffer.Row).Interior.ColorIndex = 6
Set treffer = .FindNext(treffer)
Loop While Not treffer Is Nothing And treffer.Address <> firstAddress
End If
End With
End Sub
|