Makro zum Drucken mehrerer Blätter in Excel
Schritt-für-Schritt-Anleitung
-
Öffne Excel und drücke ALT + F11 um den VBA-Editor zu starten.
-
Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle "Einfügen" > "Modul".
-
Kopiere den folgenden Code in das Modul:
Sub DruckenVieleTabellen()
Sheets(Array("Tabelle1", "Tabelle9", "Tabelle25", "Tabelle56")).PrintOut
End Sub
-
Ändere die Tabellennamen im Array, um die gewünschten Arbeitsblätter zu drucken.
-
Füge eine Schaltfläche hinzu, um das Makro auszuführen:
- Gehe zu "Entwicklertools" > "Einfügen" > "Schaltfläche (Formsteuerung)" und ziehe sie auf dein Arbeitsblatt.
- Wähle das Makro
DruckenVieleTabellen aus, wenn du dazu aufgefordert wirst.
-
Klicke auf die Schaltfläche, um die ausgewählten Blätter zu drucken.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn du die PrintOut-Methode nicht verwenden möchtest, gibt es alternative Ansätze:
Praktische Beispiele
Hier ist ein Beispiel, das zeigt, wie du die Anzahl der Kopien für ein bestimmtes Blatt festlegst:
Sub DruckenVieleTabellen()
Sheets(Array("Tabelle1", "Tabelle9", "Tabelle56")).PrintOut Copies:=1
Sheets("Tabelle25").PrintOut Copies:=16
End Sub
Dieser Code druckt Tabelle1, Tabelle9 und Tabelle56 einmal und Tabelle25 sechzehnmal.
Tipps für Profis
FAQ: Häufige Fragen
1. Wie drucke ich alle Arbeitsblätter in einer Excel-Datei?
Du kannst alle Blätter drucken, indem du den Code wie folgt anpasst:
Sub AlleBlätterDrucken()
Sheets.PrintOut
End Sub
2. Kann ich auch bestimmte Seiten eines Blattes drucken?
Ja, du kannst den Druckbereich definieren, bevor du das Makro ausführst.
3. Wie kann ich die Druckeinstellungen anpassen?
Du kannst die Druckeinstellungen im Druckdialog von Excel anpassen, bevor du das Makro ausführst.