Wie kann ich mit VBA Daten zeilenweise aus mehreren Tabellen in eine Gesamttabelle kopieren?

Um mit VBA Daten zeilenweise aus mehreren Tabellenblättern in eine Gesamttabelle zu kopieren, kannst du folgenden Ansatz verwenden:

1. **Alle relevanten Tabellenblätter durchlaufen**
2. **Die Datenzeilen (z.B. ab Zeile 2, wenn Zeile 1 Überschriften enthält) kopieren**
3. **Diese Zeilen untereinander in ein Sammelblatt einfügen**

Hier ein Beispielcode, der das veranschaulicht:

```vba
Sub DatenZusammenfassen()
Dim wsZiel As Worksheet
Dim wsQuelle As Worksheet
Dim letzteZeileZiel As Long
Dim letzteZeileQuelle As Long
Dim i As Long

' Name des Sammelblatts
Set wsZiel = ThisWorkbook.Sheets("Gesamttabelle")
wsZiel.Cells.Clear ' Gesamttabelle leeren (optional)

' Überschriften aus erstem Blatt kopieren (optional)
ThisWorkbook.Sheets(1).Rows(1).Copy wsZiel.Rows(1)
letzteZeileZiel = 2 ' Startzeile für Daten

' Alle Blätter durchlaufen (außer Gesamttabelle)
For Each wsQuelle In ThisWorkbook.Worksheets
If wsQuelle.Name <> wsZiel.Name Then
letzteZeileQuelle = wsQuelle.Cells(wsQuelle.Rows.Count, 1).End(xlUp).Row
' Datenzeilen kopieren (ab Zeile 2)
If letzteZeileQuelle > 1 Then
wsQuelle.Rows("2:" & letzteZeileQuelle).Copy wsZiel.Rows(letzteZeileZiel)
letzteZeileZiel = letzteZeileZiel + (letzteZeileQuelle - 1)
End If
End If
Next wsQuelle

MsgBox "Daten wurden erfolgreich zusammengefasst!"
End Sub
```

**Hinweise:**
- Passe `"Gesamttabelle"` ggf. an den Namen deines Sammelblatts an.
- Die Überschriften werden nur einmal aus dem ersten Blatt übernommen.
- Die Daten werden ab Zeile 2 eingefügt, damit die Überschrift erhalten bleibt.
- Der Code geht davon aus, dass die Daten in Spalte A beginnen und keine Leerzeilen dazwischen sind.

Weitere Informationen zu VBA findest du z.B. auf [Microsoft Learn](https://learn.microsoft.com/de-de/office/vba/api/overview/excel).

Falls du spezielle Anforderungen hast (z.B. bestimmte Spalten, Filter, etc.), kann der Code entsprechend angepasst werden.