Office: mehrere Tabellen durchsuchen und Ergebniss auflisten

Hi,
ich suche nach einer Möglichkeit mehrere Tabellen in Excel zu durchsuchen und die Ergebnisse der Durchsuche soll Excel mir anzeigen.
z.B wir haben hier viele Artikelnummern. 200115, 200116, 200117 u.s.w.

Nun möchte ich eine Auflistung haben wie oft jede Artikelnummer in den verschiedenen Monaten vorkam.
Quasi alle Exceltabellen durchsuchen und immer wenn er die Nummer X findet +1 dazu addieren und das ganze in einer neuen Tabelle auflisten.

Danke für jeden Tip.

 

Hi,

schreibe alle Artikelnummern im Übersichtstabellenblatt untereinander z.B. in Spalte A. Mit dem folgenden Code wird die Anzahl aller Artikel dann in Spalte B aufgelistet:

Code:

Sub Zaehlen()
    Dim wsTabelle As Worksheet
    Dim loZeile As Long
    For loZeile = 1 To 12 '<== Zeilennummer anpassen
        For Each wsTabelle In Worksheets
            If wsTabelle.Name <> "Übersicht" Then
                With Worksheets("Übersicht")
                    .Cells(loZeile, 2) = .Cells(loZeile, 2) + Application.CountIf(wsTabelle.UsedRange, .Cells(loZeile, 1))
                End With
            End If
        Next wsTabelle
    Next loZeile
End Sub

Wenn die Artikelnummern in den Monatsblättern immer in einer bestimmten Spalte stehen, kannst du im Code auch .UsedRange ersetzten durch .Columns("DeineSpalte").

Bis später,
Karin