ich habe mir ein Makro geschrieben, mit dem ich nach bestimmten Werten suchen kann und anschliessend markiert es mir die ganze Zeile rot. 2 Probleme habe ich noch:
1. Gibt es den Wert nicht, dann kommt ein Laufzeitfehler 91
2. Gibt es den Wert nur einmal, dann befinde ich im in einer Endlosschleife.
Leider sind meine VB-Kentnisse sehr schlecht, wäre super wenn mir jemand helfen würde.
Vielen Dank!
Sub Suchen()
Dim begriff As String
Dim x As Integer
Dim z As Integer
Application.ScreenUpdating = False
Range("A1").Select
begriff = InputBox("Suchbegriff eingeben")
If begriff = "" Then Exit Sub
Cells.Find(What:=begriff, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
ActiveCell.EntireRow.Interior.ColorIndex = 3
z = ActiveCell.Row
x = z
Do
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.EntireRow.Interior.ColorIndex = 3
z = ActiveCell.Row
If x <= z Then
x = z
Else
Exit Sub
End If
Loop
Application.ScreenUpdating = True
End Sub