ich bin mal wieder bei einer Verbesserung der Formatierung meines Excelblattes.
Und zwar möchte ich bei Veränderung meiner Spaltenanzahl auch eine Veränderung des Blattes, also ob Hoch-/ oder Querformat.
Leider funktioniert das Ganze nicht so, wie ich es möchte, denn die Zoom-Funktion ist leider nicht variabel, d.h. wenn sie das Blatt auf 75% verkleinert hat und ich eine Spalte wegnehme, dann bleibt der Zoom auf 75% stehen, obwohl er das Blatt nun größer zoomen könnte!
Mein Makro:
Dim z As Integer
z = ActiveSheet.PageSetup.Zoom
With ActiveSheet.PageSetup
If z > 75 Then 'ActiveSheet.PageSetup.Zoom > 75 Then
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End If
If z <= 75 Then 'ActiveSheet.PageSetup.Zoom <= 75 Then
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End If
End With
Kann jemand mir vielleicht weiterhelfen, wie ich den Zoom variabel mache!
Falls das nicht gehen sollte! Kann mir jemand vielleicht das Makro so abändern, dass ich z.B. wenn Zeile "L31" beschrieben ist, die Formatierung sich ändert!?
Wäre echt klasse!
Stehe mal wieder total auf dem Schlauch!
Vielen Dank im Voraus!
LG Chris