Mehrere Tabellen per VBA in einer neuen Mappe kopieren
Schritt-für-Schritt-Anleitung
Um mehrere Tabellenblätter in eine neue Datei zu kopieren, kannst Du folgendes VBA-Makro verwenden. Dieses Beispiel zeigt, wie Du auch ausgeblendete Blätter einblenden und anschließend wieder ausblenden kannst:
Sub BlaetterKopieren()
Dim ZielDatei As String
' Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
' Sichtbares Sheet in neue Mappe kopieren
Workbooks("Quelldatei.xls").Worksheets("Sichtbar1").Copy
' Dateinamen der neuen Mappe ermitteln
ZielDatei = Workbooks(Workbooks.Count).Name
' Verborgenes Blatt einblenden und in die neue Mappe einfügen
Workbooks("Quelldatei.xls").Worksheets("Unsichtbar1").Visible = True
Workbooks("Quelldatei.xls").Worksheets("Unsichtbar1").Copy After:=Workbooks(ZielDatei).Worksheets("Sichtbar1")
' Ehemals verborgene Blätter ausblenden
Workbooks("Quelldatei.xls").Worksheets("Unsichtbar1").Visible = False
Workbooks(ZielDatei).Worksheets("Unsichtbar1").Visible = False
' Bildschirmaktualisierung wieder einschalten
Application.ScreenUpdating = True
End Sub
Häufige Fehler und Lösungen
-
Fehler: „Objektvariable nicht festgelegt“
- Stelle sicher, dass der Name der Quelldatei korrekt ist und die angegebenen Blätter existieren.
-
Fehler: „Blatt nicht gefunden“
- Überprüfe die Schreibweise der Blattnamen. Wenn Du versuchst, ein nicht sichtbares Blatt zu kopieren, stelle sicher, dass es vorher sichtbar gemacht wurde.
-
Fehler: Nur ein Blatt wird kopiert
- Achte darauf, dass Du im Code die korrekten Blattnamen angibst, nachdem Du den Code angepasst hast, um die Sichtbarkeit zu ändern.
Alternative Methoden
Falls Du keine Makros verwenden möchtest, kannst Du auch die Funktion „Kopieren“ und „Einfügen“ manuell nutzen:
-
Excel mehrere Tabellenblätter in ein Tabellenblatt kopieren ohne Makro:
- Wähle die gewünschten Blätter aus, halte die
Strg-Taste gedrückt, und klicke auf die Blätter, die Du kopieren möchtest. Rechtsklicke auf einen der ausgewählten Blätter und wähle „Kopieren“.
- Füge die Blätter dann in ein neues Blatt ein.
-
Excel mehrere Tabellenblätter in ein Tabellenblatt kopieren ohne VBA:
- Du kannst die Daten auch kopieren und in ein neues Arbeitsblatt einfügen, indem Du die „Kopieren“- und „Einfügen“-Funktionen verwendest.
Praktische Beispiele
Hier ist ein erweitertes Beispiel, das mehrere Blätter in einer neuen Datei speichert:
Sub AlleBlaetterKopieren()
Dim ZielDatei As String
' Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
' Alle sichtbaren Blätter kopieren
ThisWorkbook.Sheets.Copy
' Dateinamen der neuen Mappe ermitteln
ZielDatei = Workbooks(Workbooks.Count).Name
' Ehemals verborgene Blätter ausblenden
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetVeryHidden Then
ws.Visible = xlSheetVeryHidden
End If
Next ws
' Bildschirmaktualisierung einschalten
Application.ScreenUpdating = True
End Sub
Tipps für Profis
- Verwende
Application.DisplayAlerts = False, um lästige Bestätigungsdialoge während des Kopiervorgangs auszublenden.
- Stelle sicher, dass Du die Bildschirmaktualisierung (
Application.ScreenUpdating) ausschaltest, um die Performance Deines Makros zu verbessern und das Kopieren der Blätter schneller zu gestalten.
- Überlege, ob Du die Blätter direkt in ein einziges Tabellenblatt zusammenführen möchtest. Dies kann durch das anpassen der Kopierlogik geschehen.
FAQ: Häufige Fragen
1. Wie kann ich mehrere Tabellenblätter in eine neue Datei speichern?
Du kannst das oben genannte VBA-Makro verwenden, um mehrere Tabellenblätter in eine neue Datei zu kopieren.
2. Ist es möglich, mehrere Tabellenblätter in ein Tabellenblatt zu kopieren?
Ja, Du kannst Daten aus mehreren Tabellenblättern in ein Tabellenblatt kopieren, indem Du die entsprechenden Blätter auswählst und die Daten dann in ein neues Blatt einfügst.
3. Welche Excel-Version wird benötigt?
Die oben genannten Beispiele sind für Excel 2010 und höher geeignet. Achte darauf, dass Du die Makros aktivierst, um sie ausführen zu können.