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. Sofern Sie einen Pfad angeben, beginnt das Makro mit dem Laden jedes XLS (Excel)

Datei im Verzeichnis, und drucken Sie dann das zweite und dritte Arbeitsblatt von jedem. Nach dem Drucken wird das Arbeitsblatt 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 (2215) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier: