Office: Mappe von Blatt A bis Y nach Wort durchsuchen --> Anzahl ausgeben

Guten Abend zusammen,

leider hat die Suchfunktion für mein Problem nur fast passende Ergebnisse ausgegeben, daher versuche ich es nochmal mit einem eigenen Thread.

Zum Problem:

Ich möchte in einer Arbeitsmappe mit 50 Blättern zwischen Blatt 3 und Blatt 49 ein bestimmtes Wort suchen und die Anzahl der gefundenen Worte ausgeben. Problematisch ist, dass die Blätter namentliche Bezeichnungen haben müssen (z.B. Produkt AB, Produkt CD, etc.), sonst hätte ich bereits eine Lösung gefunden. Das mit einzelnen Zählenwenn Formeln für jedes Blatt zu machen geht nicht, da sehr aufwändig und später weitere Blätter dazwischen eingefügt werden. Den Bereich als Zählenwenn('Blatt3'!A1:'Blatt49'!AZ1000;"Suchwort") anzugeben funktioniert auch nicht (warum eigentlich nicht?)

Kann mir jemand damit weiterhelfen? Ich wäre auch für eine VBA Lösung offen, sofern das über Tricksen bei der Zählenwenn Funktion nicht machbar sein sollte.

Schon mal vielen Dank für eure Hilfe!

Viele Grüße

Mathias

 

Hallo!

Schau mal hier: http://www.excelformeln.de/formeln.html?welcher=234
(Dort SUMMEWENN durch ZÄHLENWENN ersetzen.)

 

Hi Matthias,

verstehe ich das richtig, dass generell in allen Tabellenblättern ab 3. bis zum letzten vorhandenen gesucht werden soll?

Code:

Sub Zaehlen()
   Dim lngZaehler As Long
   Dim wksTab As Worksheet
   Dim rngZelle As Range
   For Each wksTab In Worksheets
      If wksTab.Index > 2 Then
         Set rngZelle = wksTab.UsedRange.Find("Suchbegriff", lookat:=xlWhole)
         If Not rngZelle Is Nothing Then lngZaehler = lngZaehler + _
            Evaluate("SUMPRODUCT((" & wksTab.Name & "!" & wksTab.UsedRange.Address & "=""Suchbegriff"")*1)")
         Set rngZelle = Nothing
      End If
   Next wksTab
   MsgBox lngZaehler
End Sub

Bis später,
Karin