Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Bewerten Sie hier bitte das Excel-Portal

Home Zurück Vor

Download Beispiel-Arbeitsmappe

Thema

Suchbegriff in vorhergehenden Tabellen suchen

Gruppe

Suchen

Problem

Wie kann ich die vor dem aktiven Arbeitsblatt liegenden Tabellen nach einem 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 Suchen()
   Dim rng As Range
   Dim iCounter As Integer
   Dim sSearch As String, sAddress As String, sFirst As String
   Dim bln As Boolean
   sSearch = InputBox("Bitte Suchbegriff eingeben:", , "Martin")
   If sSearch = "" Then Exit Sub
   For iCounter = ActiveSheet.Index - 1 To 1 Step -1
      Set rng = Worksheets(iCounter).Columns("A").Find _
         (sSearch, lookat:=xlPart, LookIn:=xlValues)
      If Not rng Is Nothing Then
         sFirst = rng.Address(False, False)
         MsgBox Worksheets(iCounter).Name & "!" & sFirst
         bln = True
         Do Until sAddress = sFirst
            Set rng = Worksheets(iCounter).Columns("A").FindNext(after:=rng)
            sAddress = rng.Address(False, False)
            If sFirst <> sAddress Then
               MsgBox Worksheets(iCounter).Name & "!" & sAddress
            End If
         Loop
         sAddress = ""
         sFirst = ""
      End If
   Next iCounter
   If bln = False Then
      MsgBox "Der Suchbegriff wurde nicht gefunden!"
   End If
End Sub