VBA: Multisuche mit Fundbegriff Gesamtanzahl?
26.04.2007 15:03:00
dieter(drummer)
Hi VBA Spezialisten,
habe beiliegendes, sehr gut funktionierendes Makro aus Forum. Hier kann in einer Tabelle oder Mappe nach einem Begriff gesucht werden, der dann je Tabelle gsucht und mit der gefundenden Anzahl je Tabelle angezeigt wird. Eine Prima Hilfe.
Suche folgende Verbesserung: Der Suchbegriff soll als Gesamtanzahl aus der gesamten Mappe oder auch Tabelle, also die Summe des gefundenen Begriffs, in der MsgBox als Zahl gezeigt werden. Es kann - wie es jetzt schon geht - die Summe je Tabelle erscheinen, aber am Ende soll die Gesamtsumme des Suchbegriffs aller durchsuchten Tabellen der Mappe gezeigt werden.
Danke für's drum kümmern und freue mich auf Lösung.
Makro:
Sub MultiSuchen() ' Suchbegriff in gesamter Mappe mit Zählen
Dim x As Long
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
x = 0
Do
Application.Goto rng, True
x = x + 1
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then
MsgBox x & " Fundstellen", vbInformation + vbOKOnly, "Fertig"
Exit Do
End If
Loop
End If
Next wks
MsgBox prompt:="Keine neue Fundstelle!"
End Sub