ich habe ein Tabellenblatt in dem in den Spalten A bis X jede einzelne Zelle nach einem bestimmten Begriff
durchsucht werden soll. Wenn der Begriff (Text) in einer Zeile vorhanden ist soll in Spalte Y in der entsprechenden Zeile ein "x" gesetzt werden.
Soweit bin ich schon gekommen:
Sub test1()
Dim Suche As Object, Treffer1 As String
Set Suche = Cells.Find("Remmers", lookat:=xlPart)
If Not Suche Is Nothing Then
Treffer1 = Suche.Address
Do
Rows(Suche.Row).Interior.ColorIndex = 4
Set Suche = Cells.FindNext(Suche)
Loop While Not Suche Is Nothing And Treffer1 Suche.Address
End If
End Sub
Leider färbt dieses Marko die Zeile nur ein. (Rows(Suche.Row).Interior.ColorIndex = 4)
Wie bringe ich dem Marko nun bei das es anstelle die Zeile einzufärben, die jeweilige Zeile durch ein
"X" in Spalte Y markiert?
Vielen Dank schon mal für Eure Hilfe.
Gruß Stevie