Wie druckt man in Excel bestimmte Arbeitsblätter basierend auf Zellwerten?
Haben Sie schon einmal versucht, bestimmte Arbeitsblätter basierend auf einem Zellwert zu drucken? In diesem Artikel finden Sie praktische Beispiele, wie Sie dieses Problem lösen können. Wenn Sie mehr erfahren möchten, lesen Sie einfach weiter.
Arbeitsblatt basierend auf einer Zelle mit VBA drucken
Arbeitsblatt basierend auf der benachbarten Zelle mit VBA drucken
Arbeitsblatt basierend auf einer Zelle mit VBA drucken
Angenommen, es gibt zwei Arbeitsblätter, und Sie möchten „Tabelle1“, „Tabelle2“ oder beide Blätter basierend auf dem Inhalt von Zelle A1 in „Tabelle1“ drucken. Gehen Sie dazu wie folgt vor:
Geben Sie in diesem Fall 1 ein, um das erste Arbeitsblatt zu drucken, 2 für das zweite Arbeitsblatt und 3, um beide Arbeitsblätter zu drucken.
1. Geben Sie entsprechend Ihrem Bedarf 1, 2 oder 3 in Zelle A1 des ersten Arbeitsblatts ein und drücken Sie die Tastenkombination 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: Arbeitsblatt basierend auf Zellwert 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 bzw. die Arbeitsblatt/Arbeitsblätter direkt zu drucken.
Arbeitsblatt basierend auf der benachbarten Zelle mit VBA drucken
Wenn Ihre Arbeitsmappe mehrere Arbeitsblätter enthält und Sie eines oder mehrere davon basierend auf Zellwerten dieser Arbeitsmappe drucken möchten, gehen Sie wie folgt vor:
1. Erstellen Sie ein neues Arbeitsblatt mit dem Namen Steuertabelle in der verwendeten Arbeitsmappe und listen Sie alle Arbeitsblattnamen in Spalte A auf (einschließlich oder ausschließlich der Steuertabelle – je nach Bedarf). Siehe Screenshot:
2. Geben Sie „drucken“ in die Zelle neben dem jeweiligen Arbeitsblattnamen ein, wenn Sie dieses drucken möchten. Siehe angezeigten Screenshot.
3. Drücken Sie die Tastenkombination Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen, 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 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
Nach Ausführung des Codes werden das bzw. die Arbeitsblatt/Arbeitsblätter sofort gedruckt, und gleichzeitig ersetzt eine neue Steuertabelle die alte.
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
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