Suchen Makro anpassen
20.03.2007 07:35:41
Jürgen
mit diesem Code möchte ich 79 Blätter in einer Datei nach Namen durchsuchen lassen und bei Mehrfachbegriffen jeden weiteren zeigen lassen.
Der erste wird gefunden beim weitersuchen kommt:
Objektvariable oder with Blockvariable nicht festgelegt.
Kann bitte mal jemand drüber schauen?
Danke
Jürgen
Sub MultiSuche()
Dim Sh As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
SBegriff = InputBox("Bitte Suchbegriff eingeben:")
For Each Sh In Worksheets
Sh.Activate
Set GZelle = Sh.Cells.Find(SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
GZelle.Activate
If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set GZelle = Cells.FindNext(after:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
Next Sh
End Sub