Martin fragte, ob es eine Möglichkeit gibt, Druckbereiche für mehrere Arbeitsblätter gleichzeitig festzulegen. Er hat eine Arbeitsmappe mit einer Reihe von Arbeitsblättern, die genau gleich aufgebaut sind, und er möchte, dass ihre jeweiligen Druckbereiche genau gleich sind.

Wie Martin herausgefunden hat, gibt es keine Möglichkeit, dies direkt in Excel zu tun.

Wenn Sie mehrere Arbeitsblätter auswählen, den Bereich auswählen, den Sie als Druckbereich festlegen möchten, und dann versuchen, den Druckbereich festzulegen, stellen Sie schnell fest, dass die Option zum Vornehmen der Einstellung abgeblendet ist, sodass Sie diese Option nicht auswählen können.

Es gibt jedoch mehrere Dinge, die Sie ausprobieren können. Eine besteht darin, mit einer neuen Arbeitsmappe zu beginnen und ein einzelnes Arbeitsblatt zu entwickeln, das den Druckbereich so enthält, wie Sie es auf allen Arbeitsblättern möchten. Kopieren Sie dann das Arbeitsblatt so oft, wie es in der Arbeitsmappe gewünscht wird. In den kopierten Arbeitsblättern wird der Druckbereich wie im ersten Arbeitsblatt festgelegt.

Die andere Option besteht darin, ein Makro zu erstellen, das die Druckbereichseinstellung für Sie übernimmt. Betrachten Sie das folgende Makro, mit dem der Druckbereich für alle ausgewählten Arbeitsblätter auf den Druckbereich im aktiven Arbeitsblatt festgelegt wird. (Wenn mehr als ein Arbeitsblatt ausgewählt ist, ist das aktive Arbeitsblatt dasjenige, das sichtbar ist, wenn Sie das Makro ausführen.)

Sub SetPrintAreas1()

Dim sPrintArea As String     Dim wks As Worksheet

sPrintArea = ActiveSheet.PageSetup.PrintArea     For Each wks In ActiveWindow.SelectedSheets         wks.PageSetup.PrintArea = sPrintArea     Next     Set wks = Nothing End Sub

Wenn Sie den Druckbereich lieber auf einen von Ihnen angegebenen Bereich einstellen möchten, anstatt zuerst den Druckbereich im aktiven Arbeitsblatt festlegen zu müssen, können Sie eine kleine Änderung am Makro vornehmen, sodass ein Bereich für den Druckbereich verwendet wird :

Sub SetPrintAreas2()

Dim sPrintArea As String     Dim wks As Worksheet

sPrintArea = "A7:E22"

For Each wks In ActiveWindow.SelectedSheets         wks.PageSetup.PrintArea = sPrintArea     Next     Set wks = Nothing End Sub

Ersetzen Sie den Bereich, der der Variablen sPrintArea zugewiesen ist, um einen anderen Druckbereich für Ihre Anforderungen auszuwählen. Wenn Sie der Meinung sind, dass Sie das Makro in einer Reihe verschiedener Arbeitsmappen häufig verwenden oder wenn Sie der Meinung sind, dass Sie den Druckbereich regelmäßig ändern müssen, können Sie das Makro so ändern, dass der Benutzer zur Eingabe eines Bereichs aufgefordert wird benutze:

Sub SetPrintAreas3()

Dim sPrintArea As String     Dim wks As Worksheet

sPrintArea = InputBox("Enter print area range")

For Each wks In ActiveWindow.SelectedSheets         wks.PageSetup.PrintArea = sPrintArea     Next     Set wks = Nothing End Sub

_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 (3157) 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: