habe in Recherche, unter Nr. 015598, diese Makro gefunden. Hier kann ein Suchbegriff über mehrer Tabellenbläter einer Arbeitsmappe gesucht werden.
FRAGE: Wie muss das Makro sein, wenn ich NUR die ANZAHL des Sucbbegriffes, der in der gesamten Arbeitsmappe vorkommt, angezeigt haben möchte?
Hier das vorhandene Makro:
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
Danke fürs drum kümmern.
Mit Gruß dieter(drummer)