Clinton hat ein Arbeitsbuch mit über 200 Arbeitsblättern, die im Laufe des Monats von verschiedenen Personen in seinem Unternehmen ausgefüllt werden. Ende des Monats muss er diese Arbeitsblätter ausdrucken. Nicht alle Arbeitsblätter enthalten Daten, und Clinton möchte nur die Arbeitsblätter drucken, die Daten enthalten, damit er kein Papier verschwendet. Er fragt sich, ob es vielleicht ein Makro gibt, mit dem er nur die Arbeitsblätter drucken kann, die einen Wert in Zelle G41 haben.

Die Antwort ist, dass ein solches Makro ziemlich einfach geschrieben werden könnte. Es müsste nur herausgefunden werden, wie viele Arbeitsblätter es gibt, die Zelle G41 auf jedem von ihnen überprüfen und dann nur drucken, wenn sich etwas in dieser Zelle befindet.

Das folgende Makro führt genau diese Operationen aus.

Sub PrintMost()

Dim wks As Worksheet     For Each wks In ActiveWorkbook.Worksheets         If Not IsEmpty(wks.Range("G41")) Then             wks.PrintOut         End If     Next     Set wks = Nothing End Sub

Das Makro kann leicht geändert werden, um andere Vorgänge auszuführen, z. B. die Frage, ob ein bestimmtes Arbeitsblatt gedruckt werden soll oder wie viele Kopien gedruckt werden sollen.

_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.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (3502) 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:

Nur nicht leere Arbeitsblätter drucken.