Gruppe
Allgemein
Bereich
Suchen
Thema
Suchbegriff in vorhergehenden Tabellen 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