Hallo Excelfreunde und -freundinnen,
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