Suche über meherer Registerkarten
Peter
Dank dem guten Archiv habe ich dieses Modul gefunden, welches mir schon sehr gut hilft
jetzt meine frage:
In diesem Modul muss der genaue Suchbegriff eingegeben werden. ich möchte aber nach Teilen des Inhaltes einer zelle Suchen
bsp wenn ich Peter eingebe sollte auch Peter11 gefunden werden.
das highligt wäre jetzt noch, wenn am Ende das Suchergebnis über eine Infobox ausgeben wird
bsp Rigisterkartenname und die zelle
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