Wie druckt man bestimmte Seiten oder ein Arbeitsblatt in Excel basierend auf einem Zellenwert?
Mussten Sie jemals bestimmte Seiten oder Arbeitsblätter in Excel basierend auf dem Wert einer Zelle drucken? Ganz gleich, ob eine bestimmte Seite oder ein ganzes Arbeitsblatt gedruckt werden soll, sobald eine Bedingung erfüllt ist – dieser Leitfaden liefert Ihnen schrittweise Methoden, um genau das zu erreichen.
Bestimmte Seite basierend auf Zellenwert mit VBA-Code drucken
Bestimmtes Arbeitsblatt basierend auf Zellenwert mit VBA-Code drucken
Bestimmte Seite basierend auf Zellenwert mit VBA-Code drucken
Angenommen, Sie möchten eine bestimmte Seite – beispielsweise Seite 1 des aktuellen Arbeitsblatts – automatisch drucken, sobald die Zahl 1 in Zelle A1 des aktuellen Arbeitsblatts eingegeben wird. Gehen Sie dazu wie folgt vor:
1. Wählen Sie die Zelle aus, die die Seitenzahl enthält, basierend auf der gedruckt werden soll, und drücken Sie gleichzeitig Alt und F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen. Klicken Sie anschließend auf Einfügen > Modul.
2. Anschließend öffnet sich das Fenster Microsoft Visual Basic for Applications. Kopieren Sie den folgenden VBA-Code, und fügen Sie ihn in das Code-Fenster ein.
VBA-Code: Seite basierend auf Zellenwert drucken
Option Explicit
Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
If Not IsEmpty(.Value) And IsNumeric(.Value) Then
xPage = .Value
Else: MsgBox "Please specify a cell and enter a page in cell"
Exit Sub
End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
Exit Sub
End If
End Sub3. Drücken Sie die F5-Taste, um den Code auszuführen. Klicken Sie im erscheinenden Kutools für Excel-Dialogfeld auf die Schaltfläche Ja, um die gewünschte Seite zu drucken, oder klicken Sie auf die Schaltfläche Nein, um das Dialogfeld zu schließen, falls Sie nicht drucken möchten. Siehe Screenshot:
Anschließend öffnet sich das Vorschaufenster der betreffenden Seite des aktuellen Arbeitsblatts. Klicken Sie auf die Schaltfläche Drucken, um mit dem Drucken zu beginnen.
Bestimmte Seite basierend auf Zellenwert mit VBA-Code drucken
Angenommen, Sie möchten das aktive Arbeitsblatt drucken, sobald der Wert in Zelle B2 dieses Blatts gleich 1001 ist. Dies lässt sich mit dem folgenden VBA-Code realisieren. Gehen Sie dazu wie folgt vor:
1. Klicken Sie mit der rechten Maustaste auf die Arbeitsblattregisterkarte, deren Druck vom Zellenwert abhängen soll, und wählen Sie im Kontextmenü Code anzeigen.
2. Anschließend öffnet sich das Fenster Microsoft Visual Basic for Applications. Kopieren Sie den folgenden VBA-Code, und fügen Sie ihn in das Code-Fenster ein.
VBA-Code: Arbeitsblatt basierend auf Zellenwert drucken
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, xYesorNo As Integer
Set xCell = ActiveSheet.Range("B2")
If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub
If xCell.Value = 1001 Then
xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
ActiveSheet.PrintOut
Else
Exit Sub
End If
End If
End Sub
Hinweis: Sie können Zelle und Zellenwert im Code ganz nach Ihren Anforderungen anpassen.
3. Drücken Sie Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.
Sobald Sie die Zahl 1001 in Zelle B2 eingeben, erscheint ein Kutools für Excel-Dialogfeld. Klicken Sie auf die Schaltfläche Ja, um mit dem Drucken zu beginnen, oder auf Nein, um das Dialogfeld ohne Druck direkt zu schließen. Siehe Screenshot:
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Verwandte Artikel:
- Wie erstellt man einen dynamischen Druckbereich in Excel?
- Wie druckt man nur die letzte Seite eines Arbeitsblatts in Excel?
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