Gruppe
Allgemein
Problem
Wie kann ich die vor dem aktiven Arbeitsblatt liegenden Tabellen nach einem Suchbegriff durchsuchen lassen?
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