Office: Arbeitsblatt mit über 200 Tabellen durchsuchen

Hallo,

ich habe folgendes Problem:

Ich habe ein Arbeitsblatt in dem über 200 Tabellen enthalten sind. Ich möchte jetzt in meiner Übersichtstabelle eine Zahl (Identifikationsnr. die es definitiv nur einmal in diesen 200 Tabellen gibt) eingeben und Excel soll zunächst in die richtige Tabelle springen in der meine eingebene Zahl enthalten ist und soll dann in dieser Tabelle einen bestimmten Text (auch einmalig in der Tabelle enthalten) suchen und anschließend den Bereich unter diesem gefundenen Text (z.B.: Text ist in Zelle A111 dann A112:E120) kopieren und in meine anfangs benannte Übersichtstabelle einfügen.

Beispiel:
Ich suche die Nr.: 00123 --> Excel sucht in den 200 Tabellen innerhalb der Arbeitsmappe nach dieser Zahl und findet diese. Anschliesend sucht er nach dem Wort "Entgelte" --> Excel findet das Wort Entgelte in dieser Tabelle und kopiert den Bereich unter diesem Wort. Zuletzt fügt Excel diese "Entgeltabelle" in meine erste Tabelle (Übersichtstabelle oder ähnlich).

Ich hoffe, jemand kann mir bei dieser verschachtelten Suchfunktion helfen.

Vielen Dank schonmal.

Gruß, Werner

PS: Ich habe mal eine Beispielarbeitsmappe angehängt.

 

Hallo!

Rechtsklicke den Reiter vom Blatt "Übersichtstabelle" und wähle "Code anzeigen".
Kopiere diesen Code ins Codefenster rechts:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
Dim Zelle As Range
Dim i As Integer
i = 2
Do Until Sheets(i).Range("B2") = Range("B2")
i = i + 1
If i > ThisWorkbook.Sheets.Count Then GoTo fehler
Loop
With Sheets(i)
Set Zelle = .Cells.Find("Entgelte")
.Range(Zelle.Offset(1, 0), Zelle.Offset(5, 4)).Copy
End With
Range("A12").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Exit Sub
fehler:
MsgBox "Die Nummer wurde nicht gefunden"
End Sub

 

Wow.

Danke für die schnelle Antwort. Es funktioniert so, wie ich es mir erhofft habe.

Nochmal DANKE. Tolles Forum.

Gruß, Werner