Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Suchbegriff über mehrere Tabellenblätter suchen.

Gruppe

Suchen

Problem

Wie kann ich eine ganze Arbeitsmappe nach einem über eine Inputbox einzugebenden Suchbegriff durchsuchen lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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