Note: The other languages of the website are Google-translated. Back to English

Wie drucke ich ein bestimmtes Blatt basierend auf Zellenwerten in Excel?

Haben Sie jemals versucht, bestimmte Blätter basierend auf einem Zellenwert zu drucken? In diesem Artikel werde ich über einige Beispiele zu diesem Problem sprechen. Wenn Sie an diesem Problem interessiert sind, fahren Sie bitte fort.

Druckblatt basierend auf einer Zelle mit VBA

Druckblatt basierend auf benachbarter Zelle mit VBA


Druckblatt basierend auf einer Zelle mit VBA

Angenommen, es gibt zwei Blätter, möchten Sie Blatt1 oder Blatt2 oder beide Blätter basierend auf Zelle A1 in Blatt1 drucken. Bitte gehen Sie wie folgt vor:

In diesem Fall gibt 1 ein, um das erste Blatt zu drucken, 2, um das zweite Blatt zu drucken, und 3, um beide Blätter zu drucken.

1. Geben Sie im ersten Blatt 1, 2 oder 3 für A1 ein und drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster. Siehe Screenshot:
Dokumentdruckblatt nach Zelle 1

2 Klicken Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Skript. Siehe Screenshot:

VBA: Druckblatt basierend auf dem Zellenwert

Sub PrintStuff()
'UpdayebyExtendoffice20180811
    Dim xRgVal As Variant
    Dim xSheets As Sheets
    Set xSheets = ActiveWorkbook.Worksheets
    xRgVal = xSheets(1).Range("A1").Value
    If (IsNumeric(xRgVal)) And (Len(xRgVal) = 1) Then
        Select Case xRgVal
            Case 1
                xSheets(1).PrintOut
            Case 2
                xSheets(2).PrintOut
            Case 3
                xSheets(1).PrintOut
                xSheets(2).PrintOut
            Case Else
                MsgBox "Enter1,2 or 3 into A1(1 print Sheet1 2 print Sheet2 3 print Sheet1 and Sheet2 ", , "KuTools For Excel"
                Exit Sub
            End Select
    Else
        Exit Sub
    End If
End Sub

Dokumentdruckblatt nach Zelle 2

3. Drücken Sie F5 Taste zum direkten Drucken der Blätter.


Druckblatt basierend auf benachbarter Zelle mit VBA

Wenn eine Arbeitsmappe mehrere Blätter enthält und Sie ein oder mehrere Blätter basierend auf den Zellenwerten dieser Arbeitsmappe drucken möchten, haben Sie folgende Möglichkeiten:

1. Erstellen Sie ein neues Blatt mit dem Namen Lösungsblatt in der von Ihnen verwendeten Arbeitsmappe und listen Sie alle Blattnamen in Spalte A auf (schließen Sie das Kontrollblatt nach Bedarf ein oder aus). Siehe Screenshot:
Dokumentdruckblatt nach Zelle 3

2. Art "drucken”In der nebenstehenden Zelle neben dem Blattnamen, wenn Sie ihn drucken möchten. Siehe Abbildung gezeigt.
Dokumentdruckblatt nach Zelle 4

3. Drücken Sie Alt + F11 Tasten zum Aktivieren der Microsoft Visual Basic für Applikationen Fenster, und klicken Sie auf Insert > Modul. Siehe Screenshot:
Dokumentdruckblatt nach Zelle 5

4. Fügen Sie den folgenden Code in das Modul ein und drücken Sie F5 Schlüssel zum Ausführen des Codes.

VBA: Drucken basierend auf benachbarter Zelle

Sub CreateControlSheet()
'UpdatebyExtendoffice20170811
    Dim i As Integer
    Dim xCSheetRow As Integer
    Dim xSName As String
    Dim xCSheet As Variant
    Dim xRgVal As String
    On Error Resume Next
    xSName = "Control Sheet"
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set xCSheet = ActiveWorkbook.Worksheets(xSName)
    xCSheetRow = xCSheet.Range("B65536").End(xlUp).Row
    For i = 2 To xCSheetRow
        xRgVal = xCSheet.Range("B" & i).Value
        If xRgVal = "Print" Or xRgVal = "print" Then
            If xCSheet.Range("A" & i).Value <> "" Then
                ActiveWorkbook.Worksheets(xCSheet.Range("A" & i).Value).PrintOut
            End If
        End If
    Next
    xCSheet.Delete
    ActiveWorkbook.Worksheets.Add
    ActiveSheet.Name = "Control Sheet"
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Sheet Name"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Print?"
    For i = 1 To ActiveWorkbook.Worksheets.Count
        Range("A" & i + 1).Value = ActiveWorkbook.Worksheets(i).Name
    Next
    Cells.Columns.AutoFit
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

 Dokumentdruckblatt nach Zelle 6

Nach dem Ausführen des Codes werden die Blätter jetzt gedruckt, und gleichzeitig ersetzt ein neues Kontrollblatt das alte.

Tip.Wenn Sie Kutools for Excel Liste der Blattnamen erstellen Dienstprogramm, können Sie schnell eine Liste aller Blattnamen in einem neuen Blatt mit einem anklickbaren Link erstellen. Es ist die volle Funktion ohne Einschränkung in

Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. 
Tage, Bitte laden Sie es herunter und testen Sie es jetzt kostenlos.


Dokumentdruckblatt nach Zelle 7

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

Kutools for 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 Formelriegel (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-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 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 jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (0)
Noch keine Bewertungen. Bewerten Sie als Erster!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL