ich hätte mal wieder ein kleines Problem!
Ich habe ein Blatt, welches im Hochformat steht!
Wenn es zu breit wird, dann soll es automatisch auf Querformat wechseln! (Anpassung an 1 Blatt)
Was ich noch nicht versucht habe! Und das geht sicher! Und wäre auch klasse, wenn der Fokus kleiner 50 wird, dass man das Blatt an 2 Blätter anpasst!
Ich habe mal versucht folgendes Makro zu konstruieren, leider funktioniert es überhaupt nicht! Kann mir jemand helfen, wie es geht?
With ActiveSheet.PageSetup
If .Zoom <= 75 Then
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End If
If .Zoom > 75 Then
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End If
End With
Danke für Eure Hilfe!
Bei klappt heute überhaupt nichts, wahrscheinlich ist es meinem Koph einfach zu warm!
LG Chris