Wie druckt man bestimmte Seiten oder Arbeitsblätter basierend auf einem Zellwert in Excel?

Haben Sie jemals bestimmte Seiten oder Arbeitsblätter in Excel basierend auf dem Wert einer Zelle drucken müssen? Ob es darum geht, eine bestimmte Seitenzahl oder ein ganzes Arbeitsblatt zu drucken, wenn eine Bedingung erfüllt ist, diese Anleitung bietet Schritt-für-Schritt-Methoden, um dies zu erreichen.

Bestimmte Seite basierend auf Zellwert mit VBA-Code drucken
Bestimmtes Arbeitsblatt basierend auf Zellwert mit VBA-Code drucken

Bestimmte Seite basierend auf Zellwert mit VBA-Code drucken

Zum Beispiel möchten Sie, dass eine bestimmte Seite, wie Seite 1 des aktuellen Arbeitsblatts, automatisch gedruckt wird, wenn Sie die Seitenzahl 1 in Zelle A1 des aktuellen Arbeitsblatts eingeben. Sie können wie folgt vorgehen, um dies zu erreichen.

1. Wählen Sie die Zelle aus, die die zu druckende Seitenzahl enthält, und drücken Sie gleichzeitig die Tasten Alt und F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen. Klicken Sie dann auf Einfügen > Modul.

2. Das Fenster Microsoft Visual Basic for Applications erscheint. Kopieren und fügen Sie den folgenden VBA-Code in das Codefenster ein.

VBA-Code: Seite basierend auf Zellwert 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 Sub

3. Drücken Sie die Taste F5, um den Code auszuführen. Im erscheinenden Dialogfeld von Kutools für Excel klicken Sie auf die Schaltfläche Ja, um die bestimmte 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:

Dann öffnet sich das Vorschaufenster der bestimmten Seite des aktuellen Arbeitsblatts. Klicken Sie bitte auf die Schaltfläche Drucken, um mit dem Drucken zu beginnen.

Bestimmte Seite basierend auf Zellwert mit VBA-Code drucken

Angenommen, Sie möchten das aktive Arbeitsblatt drucken, wenn der Wert in Zelle B2 dieses Blatts gleich der Zahl 1001 ist. Sie können dies mit dem folgenden VBA-Code erreichen. Gehen Sie wie folgt vor.

1. Klicken Sie mit der rechten Maustaste auf die Registerkarte des Arbeitsblatts, das Sie basierend auf dem Zellenwert drucken möchten, und klicken Sie dann im Kontextmenü auf Code anzeigen.

2. Das Fenster Microsoft Visual Basic for Applications erscheint. Kopieren und fügen Sie den folgenden VBA-Code in das Codefenster ein.

VBA-Code: Arbeitsblatt basierend auf Zellwert 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 die Zelle und den Zellenwert im Code nach Bedarf ändern.

3. Drücken Sie Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.

Wenn Sie die Zahl 1001 in Zelle B2 eingeben, erscheint ein Dialogfeld von Kutools für Excel. Klicken Sie auf die Schaltfläche Ja, um mit dem Drucken zu beginnen, oder klicken Sie auf die Schaltfläche Nein, um das Dialogfeld direkt ohne Drucken zu schließen. Siehe Screenshot:

Tipp: Wenn Sie direkt nicht aufeinanderfolgende Seiten wie Seite 1, 6 und 9 im aktuellen Arbeitsblatt drucken möchten oder nur alle geraden oder ungeraden Seiten drucken möchten, können Sie das Hilfsprogramm Bestimmte Seiten drucken von Kutools für Excel wie im folgenden Screenshot gezeigt verwenden.

Verwandte Artikel:

• Wie erstellt man einen dynamischen Druckbereich in Excel?
• Wie druckt man nur die letzte Seite eines Arbeitsblatts in Excel?