Mehrer Tabellenblätter durchsuchen
04.12.2003 11:06:13
Mockwei
Ich hätte da mal ein Problem.
Mit diesem Script kann ich zwar alle Blätter durchsuchen, aber nur nach einem Kompletten Namen. Gebe ich nur einen Teil des Namens ein, so bekomme ich keine Ausgabe. z.B. Ich suche mockwei bekomme wenn ich den namen komplett schreibe auch ein ergebniss. Aber wie stelle ich es an das wenn ich nur mock schreibe auch an diese Stelle komme. Kann mir jemand diese Formel anpassen?
Sub MultiSeek()
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
sFind = InputBox("Bitte Suchbegriff 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 neue Fundstelle!"
End Sub
Mit besten Grüssen
mockei