Office: Gleiche Tabellen zusammenführen

Hallo zusammen,

Ich hab da mal wieder ein kleines Problem! Ich möchte Tabellen mit gleichem Inhalt (Tabellenkopf) in einer Tabelle zusammenführen.

Ein einfaches Beispiel hierführ habe ich angehängt (Tabelle 1 und 2 = Quelltabelle, Tabelle 3 = Zieltabelle)

Das Makro sollte unabhängig von Zellenbezügen der zu kopierenden Daten sein da Tabelle 1 und 2 stetig wachsen.

Danke vorab für eure kompetente Hilfe!

LG, N3O

PS: Wäre super wenn der oder die Antwortgebende den Code ein wenig aufschlüsseln könnte.

 

Hallo!

Würde dir auch diese Formel in Tabelle3!A2 helfen?

=WENN(ZEILE(A1)>ANZAHL2(Tabelle1!A:A)-1;INDEX(Tabelle2!A$2:A$1000;ZEILE(A1)-ANZAHL2(Tabelle1!A:A)+1);Tabelle1!A2)

Du kannst sie nach unten und nach rechts ausfüllen.

 

Hallo Schatzi,

danke für deine Antwort. Für zwei Tabellen ist diese Formel anwendbar, aber wie siehts mit 3,4 ...oder am Ende gar 10 Tabellen aus? Da ist diese Formel nicht geeignet (Ich kann sie jedenfalls nicht anpassen!).

Schade ist auch das beim Anhängen von Tabelle 2 ein Zellenbereich definiert wird (Scheint aber mit der Formel notwendig zu sein da sonst der Tabellenkopf kopiert wird).

Grundsätzlich bin ich gegen Formeln nicht abgeneigt aber in diesem Fall fände ich es schön wenn das über VBA machbar wäre.

LG, N3O

 

Hallo!

Dieser Code kopiert die ersten neun Blätter untereinander ins zehnte. Die Überschriften müssen im zehnten Blatt bereits vorhanden sein.

Code:

Sub AlleInEins()
Dim Letzte As Long, i As Integer
Sheets(10).Range("2:65536").ClearContents
For i = 1 To 9
Letzte = Sheets(10).Range("A65536").End(xlUp).Row + 1
Sheets(i).Range("A2").CurrentRegion.Offset(1, 0).Copy Sheets(10).Cells(Letzte, 1)
Next i
End Sub

 

Hallo Schatzi,

danke für deine Antwort :-) . Klappt soweit schonmal super!
Jetzt hab ich vorläufig noch ein letztes Problem: Anstatt For i = 1 To 3 möchte ich die Tabellen 1-3 (Bsp.: Anna, Otto und Frank) bennen. Hab ein wenig rumprobiert komme aber nicht drauf!

Code:

Sub AlleInEins()

Dim Letzte As Long, i As Integer
Sheets("Sammel").Range("2:65536").ClearContents
For i = 1 To 3
Letzte = Sheets("Sammel").Range("A65536").End(xlUp).Row + 1
Sheets(i).Range("A2").CurrentRegion.Offset(1, 0).Copy Sheets("Sammel").Cells(Letzte, 1)
Next i

End Sub

LG, N3O

 

Hallo!

Vielleicht so?

Code:

Sub AlleInEins()
Dim Letzte As Long, ws As Worksheet
Sheets("Sammel").Range("2:65536").ClearContents
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Anna", "Otto", "Frank"
Letzte = Sheets("Sammel").Range("A65536").End(xlUp).Row + 1
ws.Range("A2").CurrentRegion.Offset(1, 0).Copy Sheets("Sammel").Cells(Letzte, 1)
End Select
Next ws
End Sub

 

Hallo Schatzi,

Danke für deine Hilfe. Klappt super! :-D

LG, N3O