Pagesetup in VBA

11/01/2008 - 11:58 von Thomas Müller | Report spam
Hallo,

ich möchte per VBA allen Sheets meiner Arbeitsmappe Werte bei Datei / Seite
einrichten zuweisen.
Jetzt kann ich für jedes einzelne Worksheet Pageset zuweisen, d.h.
Worksheet(1).Pagesetup, Worksheet(2).Pageset, etc.. Das geht, dauert aber
ewig.
Ideal wàre Workbook.Pageset, das gibt es aber wohl nicht.

Gibt es irgendeine vernünftige Lösung?

Vielen Dank im voraus,

Tom
 

Lesen sie die antworten

#1 Beverly
11/01/2008 - 12:58 | Warnen spam
Hi Tom,

laufe in einer Schleife über alle Tabellenblàtter nach diesem Prinzip

Sub druckbereich()
Dim wsTabelle As Worksheet
For Each wsTabelle In ThisWorkbook.Worksheets
wsTabelle.PageSetup
Next wsTabelle
End Sub

Bis spàter,
Karin
http://beverly.excelhost.de/



"Thomas Müller" wrote:

Hallo,

ich möchte per VBA allen Sheets meiner Arbeitsmappe Werte bei Datei / Seite
einrichten zuweisen.
Jetzt kann ich für jedes einzelne Worksheet Pageset zuweisen, d.h.
Worksheet(1).Pagesetup, Worksheet(2).Pageset, etc.. Das geht, dauert aber
ewig.
Ideal wàre Workbook.Pageset, das gibt es aber wohl nicht.

Gibt es irgendeine vernünftige Lösung?

Vielen Dank im voraus,

Tom



Ähnliche fragen