Makro wiederholen
Sam
einfaches Problem denke ich, aber ich bin Dummy.
Ich lasse in einem Arbeitsblatt einen Wert suchen, und danach die Zeile markieren. Soweit funktioniert es schon (siehe unten). Danach soll das Makro automatisch wieder starten.
Vielen Dank im Vorraus.
Sub Suchen()
Dim rng As Range
Dim sRow, sAdd, sFind As String
sFind = InputBox("Bitte Suchbegriff eingeben:")
Set rng = Columns(1).Find(what:=sFind, lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
sRow = rng.Row
sAdd = sRow & ":" & sRow
rng(1, 1).Activate
Do
Set rng = Columns(1).FindNext(after:=ActiveCell)
If Not rng Is Nothing Then
If rng.Row = sRow Then Exit Do
rng(1, 1).Activate
sAdd = sAdd & "," & rng(1, 1).Row & ":" & rng(1, 1).Row
End If
Loop
End If
Range(sAdd).Select
Selection.Interior.ColorIndex = 50
End Sub
Anzeige