Drucken ausgewählter Arbeitsblätter (Microsoft Excel)
Wenn Sie viele Arbeitsmappen haben, die sich im Laufe der Jahre angesammelt haben, müssen Sie möglicherweise einige der Arbeitsblätter aus jedem von ihnen ausdrucken. Beispielsweise verfügen Sie möglicherweise über einen Ordner, der eine Arbeitsmappe für jeden Unternehmensbereich des letzten Jahrzehnts enthält. Wenn Ihr Unternehmen acht Abteilungen hat, bedeutet dies, dass Sie 80 Arbeitsmappen im Ordner haben. Wenn Sie nun die Zahlen für das zweite und dritte Quartal (aus dem zweiten und dritten Arbeitsblatt jeder Arbeitsmappe) drucken müssen, sehen Sie das Problem. Das Laden jeder Arbeitsmappe und das anschließende Drucken ausgewählter Blätter kann sehr viel Zeit in Anspruch nehmen.
Eine schnellere Möglichkeit besteht darin, ein Makro zu erstellen, das den Druck für Sie übernimmt.
Das folgende Makro fragt Sie zunächst nach einem Verzeichnispfad. Vorausgesetzt, Sie geben einen Pfad an, beginnt das Makro, jede Arbeitsmappendatei in das Verzeichnis zu laden, und druckt dann das zweite und dritte Arbeitsblatt aus jedem. (Dem Makro ist es eigentlich egal, welche Art von Arbeitsmappendateien sich im Verzeichnis befinden – es können XLS-, XLSX- oder XLSM-Dateien sein. Es sollte alle laden.) Nach dem Drucken wird die Arbeitsmappe geschlossen.
Public Sub PrintWorkbooks() Dim sCurFile As String Dim sPath As String 'Get the path sPath = InputBox("Starting path?", "PrintWorkbooks") If sPath <> "" Then On Error Resume Next Application.ScreenUpdating = False If Right(sPath, 1) <> "\" Then sPath = sPath & "\" End If sCurFile = Dir(sPath & ".xls", vbNormal) Do While Len(sCurFile) <> 0 Workbooks.Open sPath & sCurFile, , True With Workbooks(sCurFile) .Worksheets(2).PrintOut .Worksheets(3).PrintOut .Close SaveChanges:=False End With sCurFile = Dir DoEvents Loop Application.ScreenUpdating = True On Error GoTo 0 End If End Sub
Wenn Sie einige Arbeitsmappen im Verzeichnis haben, kann das Drucken natürlich einige Zeit dauern. Möglicherweise möchten Sie eine Zeit finden, in der Sie nichts anderes zu tun haben, und dann einfach das Makro starten lassen.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (11316) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: