Druckbereich für alle Tabellenblätter ändern

Klicke mit der rechten Maustaste auf die Blattregisterkarte

Wähle "Code anzeigen"

Klick im Menü auf Einfügen \ Modul

Füge den folgenden Code ein

Schließe den VBA-Editor

Drücke Alt-F8

Wähle das Makro aus

Klick auf Ausführen

Andreas.

Sub DruckbereichAn()

  Dim Ws As Worksheet

  For Each Ws In Worksheets

    Ws.PageSetup.PrintArea = "1:32"

  Next

End Sub

Sub DruckbereichAus()

  Dim Ws As Worksheet

  For Each Ws In Worksheets

    Ws.PageSetup.PrintArea = ""

  Next

End Sub

Hallo,

aus deiner Problembeschreibung bin ich leider nicht schlau geworden. Hast du im Tabellenblatt einen Druckbereich definiert oder hast du nicht?

Vorgehensweise in der Normalansicht, Seitenlayoutansicht oder Umbruchvorschau: zu druckenden Bereich markieren und "Seitenlayout | Seite einrichten | Druckbereich festlegen" wählen.

Auf gleichem Weg lässt sich der Druckbereich auch wieder entfernen.

Viele Grüße

Lisa

Hallo Mira,



meinst du 3 verschiedene Tabellenblätter? Dann müsste man eine Schleife darüber laufen lassen. Oder meinst du 3 Seiten des einen Tabellenblattes? Dann ist es eine Sache der Seiteneinrichtung. Dann musst du nur den Druckbereich entsprechend angeben.



Mit freundlichen Grüßen

Claus

Danke für die Info Dimi, habs aber leider bis jetzt nicht hinbekommen.

Ich kann zwar Seitenumbrüche festlegen, aber Excel verteilt dann trotzdem

den Druck auf verschiedene Seiten.

Wenn der hinzugefügte Druckbereich zu weit weg ist oder

zudem auf zB anderen Tabellenblättern liegt, ist der Seitenumbruch leider auch funktionslos.

Hallo Petra,

du hast also den Datenbereich als Tabelle formatiert?

Wenn ja, schau mal unter Formeln => Namensmanager nach, wie diese Tabelle heißt. Dieser Name ist schon dynamisch.

Markiere deine Tabelle => Seitenlayout => Druckbereich festlegen. Der Druckbereich wird auch im Namensmanager aufgeführt. Ändere dann den Druckbereich durch den Namen der Tabelle, gebe also bei "Bezieht sich auf" z.B. =Tabelle1 ein.

Claus