Office: (Office 2007) Ausgabe in Tabelle aus mehreren Tabllen

Hallo zusammen,

ich hab ein kleines Excel-Problem. Ich hab nach Fertigstellung etwa 64 Tabellen in einer Excel-Datei. In jeder Tabelle sind 4 Spalten auf 256 Zeilen. Es wird unterteilt in IP, Name, Cluster, Inaktiv. Nun möchte ich auf einer Ausgabetablle nach einem Kriterium, z. B. Name, suchen und er soll mir alle 4 Kriterien aus allen Tabellen ausgeben bei denen der Suchbegriff zutrifft.

Das ganze ist nicht so einfach zu erklären, deshalb hab ich ein Beispiel erstellt und davon Screenshots gemacht.

Schon mal danke für Eure Hilfe!! :)

 

Hi,
hier mal das Grunderüst, das Blatt indem du die Suche startest heisst hier "Tabelle1".
Was nocht fehlt: Bevor das Makro ausgelöst wird sollte in Tabelle1 von A7 bis Leerstelle gelöcht werden, zb mit do while isempty()=false.
Hab das Makro zudem nur für den ersten Sucheintrag geschrieben, für alle anderen kannst du ja copy/pasten.

Code:

Private Sub CommandButton1_Click()
Dim COUNTER As integer
Dim NAME As String
Static TAnzahl As Integer
NAME = tabelle  'Name des Tabellenblattes ohne Nummer
TAnzahl = 64
COUNTER = 7     'Startwert wo die gefunden Einträger hinkopiert werden sollen, in deinem Beispiel zb ab Zeile 7
For i = 2 To TAnzahl    'Suche in jedem Tabellenblatt
    For y = 1 To 4      'Suche im jeweiligen Tabellenblatt von links nach rechts
        For x = 2 To 256 'Suche im jeweiligen Tabellenblatt von oben nach unten
            If Worksheets("Tabelle1").Cells("A2") = Worksheets("Tabelle" & i).Cells(x, y) Then
                Worksheets("Tabelle" & i).Range(Cells(x, 1), Cells(x, 4)).Copy   'Gefundener Eintrag wird von Tabelle+i in Tabelle1 in die Zeile "COUNTER" kopiert
                Worksheets("Tabelle1").Range(Cells(1, COUNTER), Cells(4, COUNTER)).PasteSpecial
                COUNTER = COUNTER + 1
            End If
    Next j
Next i
End Sub

 

Danke :)