Wie druckt man bestimmte Blätter basierend auf Zellwerten in Excel?
Haben Sie jemals versucht, bestimmte Blätter basierend auf einem Zellenwert zu drucken? In diesem Artikel werde ich einige Beispiele zur Lösung dieses Problems vorstellen. Wenn Sie interessiert sind, lesen Sie bitte weiter.
Blatt basierend auf einer Zelle mit VBA drucken
Blatt basierend auf einer benachbarten Zelle mit VBA drucken
Blatt basierend auf einer Zelle mit VBA drucken
Angenommen, es gibt zwei Blätter, und Sie möchten Blatt1 oder Blatt2 oder beide Blätter basierend auf Zelle A1 in Blatt1 drucken. Bitte gehen Sie wie folgt vor:
In diesem Fall bedeutet die Eingabe von 1, das erste Blatt zu drucken, die Eingabe von 2, das zweite Blatt zu drucken, und 3, um beide Blätter zu drucken.
1. Geben Sie je nach Bedarf 1, 2 oder 3 in Zelle A1 im ersten Blatt ein, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul Skript ein. Siehe Screenshot:
VBA: Blatt basierend auf Zellenwert drucken
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
3. Drücken Sie die Taste F5, um das/die Blatt/Blätter direkt zu drucken.
Blatt basierend auf einer benachbarten Zelle mit VBA drucken
Wenn Sie mehrere Blätter in einer Arbeitsmappe haben und eines oder mehrere Blätter basierend auf Zellenwerten aus dieser Arbeitsmappe drucken möchten, können Sie wie folgt vorgehen:
1. Erstellen Sie ein neues Blatt namens Kontrollblatt in der von Ihnen verwendeten Arbeitsmappe, und listen Sie alle Blattnamen in Spalte A auf (einschließlich oder ausschließlich des Kontrollblatts, je nach Bedarf). Siehe Screenshot:
2. Geben Sie „Drucken“ in die benachbarte Zelle neben dem Blattnamen ein, wenn Sie es drucken möchten. Siehe den gezeigten Screenshot.
3. Drücken Sie die Tasten Alt + F11 um das Fenster Microsoft Visual Basic for Applications zu aktivieren, und klicken Sie auf Einfügen > Modul. Siehe Screenshot：
4. Fügen Sie den folgenden Code in das Modul ein, und drücken Sie die Taste F5, um den Code auszuführen.
VBA: Drucken basierend auf einer benachbarten 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
Nachdem Sie den Code ausgeführt haben, wird/die Blätter sofort gedruckt, und gleichzeitig wird ein neues Kontrollblatt das alte ersetzen.
Kutools für Excel - Verleihen Sie Excel mit über 300 essenziellen Tools einen echten Schub. Nutzen Sie dauerhaft kostenlose KI-Funktionen! Holen Sie es sich jetzt
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins