Office: Per VBA alle Tabellen Ansicht Seitenlayout

Hallo,

wie kann ich in mehreren Excel-Blättern die Ansicht auf "Seitenlayout" ändern?

Mit
ActiveWindow.View = xlPageLayoutView
bekomm ich nur das aktuelle Fenster geändert,
aber ich finde auch keinen anderen Befehl, den ich vor den .view packen kann.
Oder gibt es noch einen anderen Befehl?

Es sind immer mehrere Blätter vorhanden, die Anzahl sowie der Name ist variabel, darüber kann ich also nicht gehen.

Danke und Gruß
Marcel

:)

 

Irgendeinen Anhaltspunkt braucht man.
Oder willst Du alle so haben ?

 

Hallo,

bspw. so:

Gruß, Muller2

 

Moin,

jedes Window-Objekt hat eine .View-Eigenschaft. Alle Window-Objekte sind in der Windows-Collection aufgeführt. Diese ist Unterobjekt des Application-Objektes.
Die Window-Objekte sind aber gleichzeitig jedes noch einmal Element einer Windows-Collection eines jeden Workbook-Objekts, die wiederum in der Workbooks-Collection liegen.

Du musst also nur durch eine dieser Collections schleifen und schon bist du fertig.

Hilft dir das schon?

Viele Grüße
derHöpp

 

Hey,

so wollte ich das auch lösen:

Code:

Ich glaube da kommt man um ein Active gar nicht herum, oder ?

 

Moin,

erst einmal danke für die Rückmeldungen.
Es handelt sich dabei um Stücklisten.
Ich habe mir ein Macro geschrieben, welche eine leere Excel-Datei formatiert,
also Zellengrößen anpasst und ein paar Zellen mit Text ausfüllt.
Da in einer Mappe aber immer mehrere Stücklisten sind und die namentlich immer anders sind (je nach Auftragsnummer etc), klappt die Methode von Muller2 leider nicht.
Der Code von TommyDer Walker funktioniert bei mir leider nicht, es passiert nichts.

Gruß
Marcel

 

Dann versuch es mal so:

Code:

Ansonsten bitte mal eine Beispieldatei hochladen.

Gruß
Thomas

 

Hallo Thomas,

vielen Dank, das scheint zu funktionieren!

Gruß
Marcel