Note: The other languages of the website are Google-translated. Back to English
Einloggen  \/ 
x
or
x
Registrieren  \/ 
x

or

Wie drucke ich bestimmte Seiten oder Arbeitsblätter basierend auf dem Zellenwert in Excel?

Haben Sie jemals versucht, bestimmte Seiten oder Arbeitsblätter basierend auf einem Zellenwert in Excel zu drucken? Und wie erreicht man das? Die Methoden in diesem Artikel können Ihnen helfen, das Problem im Detail zu lösen.

Drucken Sie eine bestimmte Seite basierend auf dem Zellenwert mit VBA-Code
Drucken Sie ein bestimmtes Arbeitsblatt basierend auf dem Zellenwert mit VBA-Code


Drucken Sie eine bestimmte Seite basierend auf dem Zellenwert mit VBA-Code


Sie möchten beispielsweise, dass eine bestimmte Seite wie Seite 1 des aktuellen Arbeitsblatts automatisch gedruckt wird, wenn Sie die Seitennummer 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 Seitenzahl enthält, auf der Sie drucken möchten, und drücken Sie dann Andere und F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster. Dann klick Insert > Modul.

2. Dann die Microsoft Visual Basic für Applikationen Das Fenster öffnet sich. Bitte kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das ein Kode Fenster.

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

3. Drücken Sie F5 Schlüssel zum Ausführen des Codes. Beim Auftauchen Kutools for Excel Klicken Sie im Dialogfeld auf die Schaltfläche Ja Klicken Sie auf die Schaltfläche, um die bestimmte Seite zu drucken, oder klicken Sie auf Nein Klicken Sie auf die Schaltfläche, um das Dialogfeld zu schließen, wenn Sie nicht drucken möchten. Siehe Screenshot:

Dann öffnet sich das Vorschaufenster der bestimmten Seite des aktuellen Arbeitsblatts. Klicken Sie auf Prints Taste, um den Druckvorgang zu starten.


Drucken Sie eine bestimmte Seite basierend auf dem Zellenwert mit VBA-Code

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

1. Klicken Sie mit der rechten Maustaste auf Blatt Tab dass Sie basierend auf dem Zellenwert drucken möchten, und klicken Sie dann auf Code anzeigen aus dem Kontextmenü.

2. Dann die Microsoft Visual Basic für Applikationen Das Fenster wird geöffnet. Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Code-Fenster ein.

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

3. Drücken Sie Andere + Q schließen Microsoft Visual Basic für Applikationen Fenster.

Wenn Sie die Nummer 1001 in die Zelle B2 eingeben, a Kutools for Excel Das Dialogfeld wird angezeigt. Klicken Sie auf Ja Taste, um den Druckvorgang zu starten. Oder klicken Sie auf Nein Schaltfläche, um das Dialogfeld direkt ohne Drucken zu verlassen. Siehe Screenshot:

Tip: Wenn Sie nicht aufeinanderfolgende Seiten wie Seite 1, 6 und 9 im aktuellen Arbeitsblatt direkt drucken oder nur alle geraden oder ungeraden Seiten drucken möchten, können Sie das versuchen Bestimmte Seiten drucken Dienstprogramm pf Kutools for Excel wie unten Screenshot gezeigt. Du kannst gehen zu Kostenloser Download der Software ohne Einschränkung in 30 Tagen.


In Verbindung stehende Artikel:


Die besten Tools für die Office-Produktivität

Kutools für Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50% und reduziert täglich Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ryan · 1 years ago
    This was very helpful! Is there a way to print multiple pages? For example, if cell A1 = 5, print pages 1-5.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Ryan,
      If you want to print consecutive pages such as 1-5 in a worksheet based on a cell value, please specify a cell such as A1 as Text formatting, type 1-5 into it, keep this cell selecting, and then run the below VBA code.

      Sub Print_Pages()
      Dim xPage As String
      Dim xYesorNo As Integer
      Dim xI As String
      Dim xPArr() As String
      Dim xIS, xIE, xF, xNum As Integer
      xPage = ActiveCell.Value
      xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
      If xYesorNo = vbYes Then
      xPArr() = Split(xPage, "-")
      If UBound(xPArr) = 0 Then
      If IsEmpty(xPage) And IsNumeric(xPage) Then
      MsgBox "Please specify a cell and enter a page in cell"
      Exit Sub
      End If
      xNum = Int(xPage)
      ActiveSheet.PrintOut from:=xNum, To:=xNum, preview:=True
      ElseIf UBound(xPArr) = 1 Then
      On Error GoTo Err01
      xIS = Int(xPArr(0))
      xIE = Int(xPArr(1))
      If xIS < xIE Then
      For xF = xIS To xIE
      ActiveSheet.PrintOut from:=xF, To:=xF, preview:=True
      Next
      Else
      For xF = xIE To xIS
      ActiveSheet.PrintOut from:=xF, To:=xF, preview:=True
      Next
      End If
      Else
      MsgBox "Please enter the valid data", vbOKOnly, "Kutools for Excel"
      Exit Sub
      End If
      Else
      Exit Sub
      End If
      Exit Sub
      Err01:
      MsgBox "Please enter the correct page scope", vbOKOnly, "Kutools for Excel"
      End Sub
      • To post as a guest, your comment is unpublished.
        Manny · 6 months ago
        Thank you. I have the same issue I want to print pages based on cell value. Lets say variable changes i.e page 1-5 and then some time 2-6. So I have a field which will calculate and will put that in text format as suggested.But for some reason it doesnt work for me. It doesnt prints any pages.
        Can you please advise