ich habe es gestern schon einmal versucht!
Und zwar möchte ich gerne mein Blatt, je nach der Zoomgrösse als Hoch oder Querformat einstellen!
Wenn ich mein Blatt habe und unter "Seite einrichten" gehe, dann steht bei mir "Hochformat" und "Anpassen 1 bei Breit und Hoch" Und bei (Verkleinern/Vergrössern 100%)
Wenn ich nun mein Blatt erweitere, dann nimmt automatisch, da das Blatt ja auf 1 Seite angepasst ist mein Zoomfaktor von 100% ab!
Ab Zoomfaktor 75% soll er dann automatisch auf Querformat umstellen!
Mein Makro sieht bis jeztt folgendermaßen aus, allerdings funktioniert es nicht!
With ActiveSheet.PageSetup
If ActiveWindow.Zoom <= 75 Then
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End If
If ActiveWindow.Zoom > 75 Then
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End If
End With
Kann mir vielleicht jemand helfen!?
Was ich mir schon gedacht habe, ist dass ich es vielleicht falsch eingeunden habe! Dieses Makro steht in meinem Tabellenblatt!
Danke im Voraus!
Chris