Wie druckt man in Excel ausschließlich ungerade oder gerade Seiten?
Der Excel-Druckdialog bietet jedoch keine einfache Möglichkeit, ausschließlich ungerade oder gerade Seiten zu drucken, was in verschiedenen Büro- oder Datenberichtsszenarien hinderlich sein kann, wenn Sie bestimmte Seiten eines langen Arbeitsblatts überprüfen, verteilen oder archivieren müssen.
Dieser Artikel stellt zwei effektive Lösungen für diese Einschränkung in Excel vor: ein VBA-Makro zum Drucken ungerader oder gerader Seiten sowie einen flexibleren Ansatz mit Kutools für Excel, sodass Sie die Methode wählen können, die am besten zu Ihren Anforderungen und Ihrem technischen Kenntnisstand passt.
Nur ungerade oder gerade Seiten mit Makrocode drucken
Ungerade, gerade oder beliebige Seiten nach Wunsch mit Kutools für Excel drucken
Alternative Lösung: Manuelles Drucken ungerader oder gerader Seiten über den Druckdialog
Nur ungerade oder gerade Seiten mit Makrocode drucken
In Excel fehlen im Druckinterface zwar direkte Optionen zur Auswahl ungerader oder gerader Seiten – doch mit einem VBA-Makro lässt sich dies problemlos umsetzen. Diese Methode ist ideal, wenn Sie mit der Ausführung einfacher Codes vertraut sind und eine Lösung ohne Drittanbieter-Tools suchen. Sie eignet sich besonders gut für einmalige Aufgaben oder für Benutzer, die keine komplexen Druckverwaltungsfunktionen regelmäßig benötigen.
Stellen Sie vor Beginn sicher, dass Ihr Arbeitsblatt druckfertig formatiert ist, und prüfen Sie in der Druckvorschau, wie viele Seiten generiert werden – so vermeiden Sie leere oder unnötige Ausdrucke durch unerwartete Seitenumbrüche.
1. Öffnen Sie das Arbeitsblatt, das Sie drucken möchten, und drücken Sie Alt + F11, um den Editor für Microsoft Visual Basic for Applications (VBA) zu starten.
2. Klicken Sie im VBA-Editor auf Einfügen > Modul, um ein neues Modul einzufügen, und fügen Sie den folgenden Code in das Skriptfenster ein – orientieren Sie sich dabei an der Abbildung.
VBA: Nur ungerade oder gerade Seiten drucken
Sub Odd_Even_Print()
'UpdatebyExtendoffice20160901
Dim xTotalPages As Long
Dim xStartPage As String
Dim xPage As Integer, xYesorNo
Application.ScreenUpdating = False
xStartPage = InputBox("Enter 1 for Odd, 2 for Even", "Kutools for Excel")
If xStartPage = "" Then Exit Sub
xTotalPages = ActiveSheet.PageSetup.Pages.Count
xYesorNo = MsgBox("Are you sure to print?", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
For xPage = Int(xStartPage) To xTotalPages Step 2
ActiveSheet.PrintOut from:=xPage, To:=xPage
Next
Else
Exit Sub
End If
Application.ScreenUpdating = True
End Sub
Achten Sie beim Kopieren und Einfügen des Codes darauf, keine vorhandenen Makros zu überschreiben, die Sie benötigen.
3. Drücken Sie F5, um das Makro auszuführen. Es erscheint eine Eingabeaufforderung, in der Sie Ihre Auswahl treffen können: Geben Sie 1 ein, wenn Sie nur ungerade Seiten drucken möchten, oder 2 für gerade Seiten.
Hinweis: Überprüfen Sie Ihre Eingabe (1 oder 2) sorgfältig – eine falsche Auswahl kann dazu führen, dass das Makro nicht wie vorgesehen funktioniert. Bei ungültigen Werten warnt Sie das Makro in der Regel oder führt keine Aktion aus.
4. Nachdem Sie Ihre Auswahl eingegeben haben, klicken Sie auf OK. Es erscheint ein zweiter Bestätigungsdialog, der fragt, ob Sie wirklich mit dem Druck fortfahren möchten – als Schutz vor versehentlichem Drucken.
Möchten Sie den Druck abbrechen, klicken Sie in diesem Dialog auf Nein; andernfalls klicken Sie auf Ja, um fortzufahren.
5. Nach der Bestätigung sendet Excel ausschließlich die angegebenen ungeraden oder geraden Seiten des aktiven Arbeitsblatts an Ihren Standarddrucker.
Fehlerbehebung und Tipps:
- Dieses Makro wird auf dem aktuell aktiven Arbeitsblatt ausgeführt. Sollten Sie mehrere Arbeitsblätter drucken möchten, führen Sie das Makro für jedes einzelne separat aus.
- Achten Sie vor der Ausführung des Makros auf Ihre Druckereinstellungen – stellen Sie sicher, dass im Excel-Druckdialog der richtige Drucker ausgewählt ist.
- Falls nichts gedruckt wird, überprüfen Sie erneut den Druckbereich und stellen Sie sicher, dass Ihr Arbeitsblatt weder leer noch falsch für den Druck formatiert ist.
Ungerade, gerade oder beliebige Seiten nach Wunsch mit Kutools für Excel drucken
Wenn Sie regelmäßig ungerade, gerade oder mehrere bestimmte Seiten Ihrer Arbeitsblätter drucken müssen, bietet Kutools für Excel eine besonders effiziente Lösung. Diese eignet sich ideal für Anwender, die eine intuitivere und benutzerfreundlichere Oberfläche für komplexe Druckaufträge bevorzugen. Mit Kutools für Excel wählen Sie nicht nur mühelos alle ungeraden oder alle geraden Seiten aus, sondern legen auch beliebige benutzerdefinierte Seitenbereiche problemlos fest – eine Funktion, die mit den integrierten Excel-Tools oder einfachen Makros so nicht direkt verfügbar ist.
Nachdem Sie kostenlos installiert habenKutools für Excel, können Sie dessen Bestimmte Seiten drucken-Funktion nutzen, um vielseitige Druckanforderungen effizient zu bewältigen:
Navigieren Sie hierzu zu KUTOOLS PLUS > Drucken > Bestimmte Seiten drucken. Das Dialogfeld Bestimmte Seiten drucken erscheint, in dem Sie entsprechend Ihren Druckanforderungen Optionen auswählen können.
 |  |  |
In diesem Dialog können Sie:
- Wählen Sie aus, ob alle ungeraden Seiten, alle geraden Seiten oder ein benutzerdefinierter Bereich entsprechend Ihren Anforderungen gedruckt werden soll – für deutlich mehr Flexibilität als mit den standardmäßigen Excel-Druckoptionen.
- Überprüfen Sie Ihre Auswahl ganz einfach in der Druckvorschau, um sicherzustellen, dass die richtigen Seiten gedruckt werden – und so Druckverschwendung zu vermeiden.
Tipp:
1. Um einen benutzerdefinierten Satz von Seiten wie 1, 3, 5 und 9 bis 12 zu drucken, wählen Sie Benutzerdefinierter Bereichund geben Sie Ihren Bereich in das dafür vorgesehene Feld ein (z. B.)1, 3, 5, 9-12).
2. Um die Anzahl der Kopien zu steuern, geben Sie einfach die gewünschte Anzahl in die Kopien-Einstellung ein – so drucken Sie mühelos mehrere Exemplare Ihrer ausgewählten Seiten.
3. Wenn Sie Arbeitsblätter in umgekehrter Reihenfolge drucken möchten, aktivieren Sie die Option In umgekehrter Reihenfolge drucken. Das ist besonders praktisch bei umfangreichen Druckaufträgen, bei denen die manuelle Sortierung der Seiten nach dem Druck mühsam wäre.
Hinweise und Empfehlungen:
- Überprüfen Sie vorab den Seitenumbruch und den Druckbereich Ihres Arbeitsblatts, um mit den Druckfunktionen von Kutools stets präzise Ergebnisse zu erzielen.
- Wenn Sie „Bereich auswählen“ zum Drucken verwenden, beachten Sie, dass ausgeblendete Zeilen oder Spalten je nach Ihren Seiteneinstellungen dennoch enthalten sein können.
- Nutzen Sie stets die Druckvorschau, um Ihre Ausgabe vor dem endgültigen Druck zu überprüfen – besonders bei umfangreichen oder wichtigen Dokumenten.
- Diese Methode gilt jeweils nur für ein Arbeitsblatt – bei Bedarf einfach für weitere Blätter wiederholen.
Vorteile: Kutools für Excel ist ideal für wiederkehrende Aufgaben, Benutzer, die komplexe Berichte verwalten, oder alle, die Druckfehler minimieren möchten. Die Oberfläche erfordert keinerlei Programmierkenntnisse und bietet bei benutzerdefinierten Druckszenarien deutlich mehr Flexibilität als VBA-Lösungen.
Alternative Lösung: Manuelles Drucken ungerader oder gerader Seiten über den Druckdialog
Wenn Sie weder VBA noch Tools von Drittanbietern nutzen möchten, können Sie ungerade oder gerade Seiten in Excel manuell drucken – allerdings erlaubt der Druckdialog jeweils nur einen zusammenhängenden Seitenbereich. Die Eingabe mehrerer nicht zusammenhängender Seiten (z. B. 1,3,5) im Seitenfeld wird von Excel nicht unterstützt.
So drucken Sie manuell ungerade oder gerade Seiten:
- Gehen Sie zu Datei > Drucken.
- Geben Sie im Feld Seiten eine einzelne Seitenzahl (z. B. 1) in das „Von“-Feld ein, um ausschließlich diese spezifische Seite zu drucken.
- Klicken Sie auf Drucken.
- Wiederholen Sie diesen Vorgang bei Bedarf für jede ungerade oder gerade Seite.
Demo: Ungerade, gerade oder beliebige Seiten nach Wunsch mit Kutools für Excel drucken
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins