Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro zum drucken mehrerer Blätter?

Forumthread: Makro zum drucken mehrerer Blätter?

Makro zum drucken mehrerer Blätter?
25.10.2005 17:14:57
Gabi
Hallo,
ich möchte gerne über eine schaltfläche bestimmte blätter drucken aber leider weiss ich nicht wie dafür das makro aussehen soll?
Es sollen in einer Excelmappe mit vielen Blättern nur
Seite1
Seite9
Seite25
Seite56
ausgedruckt werden, kann mir da jemand behilflich sein?
Ich danke allen, Gruss Gabi
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum drucken mehrerer Blätter?
25.10.2005 17:19:31
Koenig
Hallo Gabi,
wenn Du Seiten sagst, meinst Du dann Tabellenblätter oder effektiv von einem grossen Tabellenblatt die Seiten 1/9/ etc.?
Gruss Wilhelm
AW: Makro zum drucken mehrerer Blätter?
25.10.2005 17:24:54
Gabi
Hallo Wilhelm,
danke für die rasche antwort. Ich meine Tabellenblätter welche ich nur in Seite 1-1000
umbenannt habe. Es sollten also Tabellenblätter gedruckt werden.
Gruss Gabi
Anzeige
AW: Makro zum drucken mehrerer Blätter?
25.10.2005 17:27:00
Koenig
siehe Antwort
AW: Makro zum drucken mehrerer Blätter?
25.10.2005 17:26:13
Koenig
Hallo Gabi,
ich muss gleich weg,
sofern Du von verschiedenen Tabellen sprichst hier der Lösungsansatz:

Sub DruckenVieleTabellen()
Sheets(Array("Tabelle1", "Tabelle9", "Tabelle25", "Tabelle56")).PrintOut
End Sub

Du musst den Array ergänzen mit den Namen Deiner Tabellen.
Gruss Wilhelm
Anzeige
AW: Danke Wilhelm
25.10.2005 17:27:18
Gabi
Danke viel mals, das habe ich gesucht.
Gruss Gabi
AW: Noch ne Frage?
25.10.2005 17:42:10
Gabi
Hallo,
das mit dem Makro von Wilhelm funktioniert sehr gut, ich möchte aber das z.B.: Tabelle25 16 Mal ausgedruckt wird, die restlichen nur einmal.
Könnt ihr mir nochmals helfen?

Sub DruckenVieleTabellen()
Sheets(Array("Tabelle1", "Tabelle9", "Tabelle25", "Tabelle56")).PrintOut
End Sub

Wie muss der Code verändert werden um meinem Wunsch nachzukommen?
LG Gabi
Anzeige
AW: Noch ne Frage?
25.10.2005 17:49:55
Willie
Hallo Gabi
so sollte es funktionieren
Gruß
Willie

Sub DruckenVieleTabellen()
Sheets(Array("Tabelle1", "Tabelle9", "Tabelle56")).PrintOut Copies:=1
Sheets("Tabelle25").PrintOut Copies:=16
End Sub

Copies:=2
AW: Danke Willi
25.10.2005 17:54:00
Gabi
Hallo Willi,
danke für die schnelle Hilfe, funktioniert so wie ich wollte.
Schönen Abend noch, Gabi
Anzeige
;

Forumthreads zu verwandten Themen

Makro für auf mehrere Tabellenblätter anwenden
Mat

Hallo liebes Forum,
wie kann ein ein vorhandenes Modul (Makroname = Sub Formatieren) über alle vorhandenen Tabellenblätter laufen lassen, mit Ausnahme des Tabellenblattes data.
Gruß Mat
21.03.2011 16:31:15
Thread-ID: 1206697
7 Beiträge
Makro zum Drucken mehrerer Tabellenblätter
Martin

Hallo zusammen,
ich benötige ein Makro zum Drucken mehrerer Tabellenblätter. Der Name der Tabellenblätter steht in einem Übersichtsblatt in der Range B4:B70, wobei nicht alle Zeilen gefüllt sind. Des Weiteren muss es ein Error Handling geben, falls es kein Tabellenblatt mit einem der Namen...
23.05.2015 11:30:37
Thread-ID: 1427446
5 Beiträge
Anzeige
Makro zum Drucken mehrerer Tabellenblätter
Martin

Hallo zusammen,
ich benötige ein Makro zum Drucken mehrerer Tabellenblätter. Der Name der Tabellenblätter steht in einem Übersichtsblatt in der Range B4:B70, wobei nicht alle Zeilen gefüllt sind. Des Weiteren muss es ein Error Handling geben, falls es kein Tabellenblatt mit einem der Namen...
23.05.2015 14:10:46
Thread-ID: 1427459
2 Beiträge
Suchmakro auf mehrere Tabellenblätter erweitern
otto

Hallo zusammen,
mit folgenden Code durchsuche ich das aktuelle Tabellenblatt (nach Inhalt Spalte AA): Private Sub TextBox1_Change() Dim arr() As Variant, tmp As Variant, wks As Worksheet, wks1 As Worksheet, bolmatch Dim index As Integer, intindex1 Dim x, icount, wert As Currency ListBox1.Cl...
04.02.2016 13:48:44
Thread-ID: 1473252
3 Beiträge
VBA-Code Drucken Wenn mehrere Tabellenblätter
Heiko

Hallo zusammen.
Ich habe ein Excel-Arbeitsblatt mit mehreren Fahrzeugen drin Jedes Fahrzeug hat ein eigenes Registerblatt. z.B. Fahrzeug 123 dann Fahrzeug 234 dann Fahrzeug 345 usw.
Als erstes Registerblatt habe ich eine Abfrageseite ob das Fahrzeug in Verwendung ist. z.B. Fahrzeug 123...
24.01.2017 00:14:19
Thread-ID: 1536936
4 Beiträge
Anzeige
Makro Subsplit über mehrere Tabellenblätter
Tommy

Liebe Excel Profis,
ich benötige Eure Unterstützung beim Aufteilen einer Excel Datei mit mehreren Tabellenblättern mittels Makro.
Die Masterdatei enthält 3 Tabellenblätter (FX, TG & WP). Die Spalte D "Split-Kriterim" beinhaltet das Kriterium, nachdem die einzelnen Datensätze aufgete...
26.02.2018 14:18:48
Thread-ID: 1611142
4 Beiträge
Anzeige
Makro für Drucken aus mehreren Tabellenblättern
Stephan

Hallo, ich bräuchte ein Makro zum Ausdrucken aus mehrerer Tabellenblättern wenn eine Bedingung in Zelle EN545 = JA, der Tabellenbereich EE546 bis EN623 alle Tabellenblätternamen beginnen mit Projektgesamtdaten und der jeweiligen Projektnummer xyz.
Ziel soll es sein wenn in den Tabellenbläte...
05.11.2018 18:51:38
Thread-ID: 1655474
6 Beiträge
Makro - Mehrere Tabellenblätter
Sebastian

Hallo zusammen,
ich möchte gerne, dass die Werte von TabellenBlatt1 auch in TabellenBlatt3 kopiert werden können und nicht nur in Tabellenblatt2. Habe verschiedenes Versucht, leider ohne Erfolg.
Bsp:
$ Private Sub ToggleButton2_Click() Worksheets("TabellenBlatt1").Range("A1:B100")...
18.01.2019 16:39:20
Thread-ID: 1669245
6 Beiträge
Mehrere Reiter bestimmte Zeilen drucken
Frank

Hallo,
ich habe ein Makro aufgezeichnet.
Diese funktioniert auf einer Seite prima.
Aber das Exel File hat sehr viele Reiter, die alle gedruckt werden sollen.
Alle von Zeile A58-A99
Spalten hat die Tabelle mal bis H und mal bis I.
Mit meinem augezeichneten Makro klappt es...
17.08.2005 10:32:41
Thread-ID: 653559
6 Beiträge
Anzeige
Makro zum drucken mehrerer Blätter geht nicht
Gabi

Hallo,
habe gestern schon hilfe bekommen aber ich stecke jetzt fest.
Wenn ich nun die Schaltfläche zum drucken drücke kommt folgende Fehlermeldung:
Fehler beim Komilieren
Falsche Anzahl an Argumenten....
Mein Code sieht zur Zeit so aus:
Sub DruckenVieleTabellen() Sheets...
26.10.2005 11:01:27
Thread-ID: 687160
3 Beiträge
Makro zum Drucken mit mehreren Tabellenblättern
Henning

Hallo,
ich habe eine Schlatfläche zum Drucken eines Tabellenblates mit einem Makro erstellt. Nun habe ich insgesamt 6 Tab.Blätter auf dem letzten möchte ich eine Schlatfläche anklicken können mit dem ich Tab-Blatt 3 2x Drucke und Tab.Blatt 4 2x Drucke und Blatt 5 1x Drucke. Ist das möglich?...
24.08.2006 16:45:35
Thread-ID: 795151
3 Beiträge
Tabellenblätter aus mehreren Arbeitsmappen drucken
Ano Nym
Hallo,
bin ganz neu hier. Habe zwar schon des Öfteren reingeschaut, aber noch nie eine Frage gestellt.
Ich habe nun ein Problem, habe schon ein anderes Forum um Hilfe gebeten und stundenlang gegoogelt - aber nix gefunden!
Ich habe zwei Hauptverzeichnisse (NA und HA) mit jeweils ca. 5 bi...
10.11.2006 01:00:04
Thread-ID: 818247
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Makro zum Drucken mehrerer Blätter in Excel

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und drücke ALT + F11 um den VBA-Editor zu starten.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle "Einfügen" > "Modul".

  3. Kopiere den folgenden Code in das Modul:

    Sub DruckenVieleTabellen()
   Sheets(Array("Tabelle1", "Tabelle9", "Tabelle25", "Tabelle56")).PrintOut
End Sub

  4. Ändere die Tabellennamen im Array, um die gewünschten Arbeitsblätter zu drucken.

  5. 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.

  6. Klicke auf die Schaltfläche, um die ausgewählten Blätter zu drucken.

Häufige Fehler und Lösungen

  • Fehler: "Das angegebene Blatt wurde nicht gefunden."

    • Stelle sicher, dass die Tabellennamen genau mit den Namen in Excel übereinstimmen.

  • Fehler: Drucker nicht gefunden.

    • Überprüfe die Druckereinstellungen in Excel und stelle sicher, dass der Drucker korrekt angeschlossen ist.

Alternative Methoden

Wenn du die PrintOut-Methode nicht verwenden möchtest, gibt es alternative Ansätze:

  • Drucken über die Benutzeroberfläche:

    • Wähle die gewünschten Blätter aus, halte die STRG-Taste gedrückt und klicke auf die Reiter. Dann gehe zu "Datei" > "Drucken" und wähle "Aktuelle Blätter".

  • Excel mehrere Mappen drucken:

    • Du kannst auch mehrere Arbeitsmappen drucken, indem du sie öffnest und in jeder den gleichen Makro-Code anwendest.

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

  • Dynamische Blattnamen:

    • Du kannst auch Variablen verwenden, um die Namen der Arbeitsblätter dynamisch zu generieren.

  • Drucken von Excel mehreren Reitern:

    • Wenn du viele Blätter drucken musst, denke darüber nach, sie in einer Gruppe zusammenzufassen, um den Prozess zu automatisieren.

  • Fehlerüberprüfung:

    • Füge Fehlerbehandlungsroutinen in dein Makro ein, um Probleme beim Drucken von Arbeitsblättern zu vermeiden.

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.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige