Thema: Suchbegriff über mehrere Tabellenblätter suchen.

StandardModule: basMain

Sub MultiSeek()
   Dim wks As Worksheet
   Dim rng As Range
   Dim sAddress As String, sFind As String
   sFind = InputBox("Bitte Suchbegriff eingeben:")
   For Each wks In Worksheets
      Set rng = wks.Cells.Find( _
         what:=sFind, _
         lookat:=xlWhole, _
         LookIn:=xlFormulas)
         If Not rng Is Nothing Then
            sAddress = rng.Address
            Do
               Application.Goto rng, True
               If MsgBox( _
                  prompt:="Weiter", _
                  Buttons:=vbYesNo + vbQuestion _
                  ) = vbNo Then Exit Sub
               Set rng = Cells.FindNext(after:=ActiveCell)
               If rng.Address = sAddress Then Exit Do
            Loop
        End If
    Next wks
    MsgBox prompt:="Keine neue Fundstelle!"
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Suchen