Frage zu Suchen-Makro
17.11.2003 13:54:26
Scotty
Suche nach folgenden Makro über mehrere Tabellenblätter. Das funktioiert soweit auch ganz gut. Muß nur hinter dem Suchbegriff ein * eingeben, da sonst überhaupt nichts gefunden wird. Da noch andere mit diesem Makro arbeiten und manchmal das * vergessen (somit auch nichts finden) ist dies ganz schön lästig. Kann man das Makro dahingehend ändern, das Suchbegriffe auch ohne * gefunden werden? Ist sehr wichtig. Danke für eure Hilfen!!
Sub MultiSeek()
Workbooks.Open FileName:= _
"\\Test\Test.xls" _
, UpdateLinks:=3
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
sFind = InputBox("Bitte Suchbegriff mit * 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 weitere Übereinstimmung gefunden!"
End Sub