automatisches Wiederholen der Suche
28.03.2006 21:43:49
HansHei
ich nutze folgenden Code aus diesem Forum für die Suche nach Begriffen in Spalte A. Diese werden farblich markiert. Nun ist es so, dass die Inputbox nach der Suche "verschwindet", also das Makro beendet wird.
Ist es möglich, dass die Inputbox, egal ob der Begriff gefunden wurde oder nicht, für die nächste Suche zur Verfügung steht? In etwa so wie eine ständig vorhandene Eingabemaske oder eine nach der Suche wiederkehrende Inputbox.
Ich hoffe das war nicht zu kompliziert erklärt und jemand kann mir zeigen wies geht.
Sub suchen_1()
Dim SWERT As String
Dim ze As Integer
Dim z As Integer
Dim firstAddress As String
Dim c
SWERT = Application.InputBox("Suchbegriff eingeben!", "Suche")
ze = Cells(65536, 1).End(xlUp).Row
For z = 1 To ze
Cells(z, 1).Interior.ColorIndex = xlColorIndexNone
Next
With Sheets(1).Range("A2:A" & ze)
Set c = .Find(SWERT, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.ColorIndex = 6
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
GoTo suchen_1
End Sub
Danke schon mal und Gruß
Hans