möchte einen Bereich auf Bildschirmgröße ohne select zoomen.
Geht das?
Bisher so:
Sub AnsichtAnpassen1()
Application.ScreenUpdating = False
Range("A1:Y27").Select
ActiveWindow.Zoom = True
Application.ScreenUpdating = True
End Sub
Gruß
Felix
möchte einen Bereich auf Bildschirmgröße ohne select zoomen.
Geht das?
Bisher so:
Sub AnsichtAnpassen1()
Application.ScreenUpdating = False
Range("A1:Y27").Select
ActiveWindow.Zoom = True
Application.ScreenUpdating = True
End Sub
Gruß
Felix
schau mal hier: https://www.herber.de/forum/archiv/196to200/t196494.htm#196494
Gruß Lutz
so weit ich weiß, geht es, wenn du das druckbild nicht
verändern willst, nur über activewindow.
du kannst doch z.b.
ActiveWindow = 120
einstellen und dann eine einzige zelle selectieren.
genau so kannst du in deinem beispiel nach dem zoom eine
zelle selectieren: z.b.
Range("A1").Select
und bist dann am ende der routine die selection des ganzen bereiches los.
viele grüße
olaf