ich möchte in einer Tabelle zeilen automatisch markieren, wenn in zelle A ein bestimmtest wort steht, dass bekomme ich hier mit hin, nur leider immer nur für den ersten eintrag. Es soll aber weiter gesucht werden bis zum schluss der Tabelle.
Daher wollte ich Loop mit einsetzten, nur irgend etwas mache ich falsch:
Sub test()
Dim FindWort As String
Dim w As Integer
FindWort = "Zettel*"
With Worksheets("Blatt1").Range("A:A")
w = .Find(what:=FindWort, LookIn:=xlValues).Row
If w 0 Then
Rows(w).Interior.ColorIndex = 4
End If
End With
End Sub
So habe ich es probiert geht aber nicht:
Sub test()
Dim FindWort As String
Dim w As Integer
FindWort = "Zettel*"
With Worksheets("Blatt1").Range("A:A")
Do
w = .Find(what:=FindWort, LookIn:=xlValues).Row
If w 0 Then
Rows(w).Interior.ColorIndex = 4
Exit Do
End If
Loop
End With
End Sub
Vielen Dank