Excel alle Tabellen in einer Tabelle zusammenführen VBA

Um alle Tabellen in einer Excel-Arbeitsmappe in einer einzigen Tabelle zusammenzuführen, kannst du den folgenden VBA-Code verwenden. Dieser Code geht davon aus, dass alle Tabellen in der Arbeitsmappe die gleichen Spalten haben.

1. Öffne Excel und drücke `ALT + F11`, um den VBA-Editor zu öffnen.
2. Klicke auf `Einfügen` und wähle `Modul`, um ein neues Modul zu erstellen.
3. Kopiere und füge den folgenden Code in das Modul ein:

```vba
Sub AlleTabellenZusammenfuehren()
Dim ws As Worksheet
Dim wsZiel As Worksheet
Dim letzteZeile As Long
Dim zielZeile As Long

' Zielarbeitsblatt erstellen
Set wsZiel = ThisWorkbook.Worksheets.Add
wsZiel.Name = "Zusammengeführt"

' Zielzeile initialisieren
zielZeile = 1

' Durchlaufe alle Arbeitsblätter
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> wsZiel.Name Then
' Finde die letzte Zeile in der Quelltabelle
letzteZeile = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

' Kopiere die Daten in die Zielarbeitsblatt
ws.Range("A1:A" & letzteZeile).EntireRow.Copy wsZiel.Cells(zielZeile, 1)

' Aktualisiere die Zielzeile
zielZeile = zielZeile + letzteZeile
End If
Next ws

MsgBox "Alle Tabellen wurden erfolgreich zusammengeführt!"
End Sub
```

4. Schließe den VBA-Editor und kehre zu Excel zurück.
5. Drücke `ALT + F8`, wähle `AlleTabellenZusammenfuehren` aus und klicke auf `Ausführen`.

Dieser Code erstellt ein neues Arbeitsblatt mit dem Namen "Zusammengeführt" und kopiert alle Daten aus den anderen Tabellen in dieses Blatt. Achte darauf, dass die Spalten in den Quelltabelle identisch sind, um ein korrektes Zusammenführen zu gewährleisten.