Zoom - Select sorgt für Laufzeitfehler
28.10.2007 12:21:00
michael
Ich möchte über ein Makro ein bestimmtes Tabellenblatt auswählen, den Bereich mit Inhalt auswählen und
im Anschluß den AutoZoom ausführen, damit der Bildschirm komplett ausgefüllt wird. Im Anschluß
erzeuge ich dann noch den FullScreen.
FullScreen hat bisher auch funktioniert, aber seit ich den AutoZoom integriert habe bekomme ich einen
Laufzeitfehler 1004, wenn die Zeile "Range("A1:Q1").Select ausgeführt wird.
Mache ich das Ganze ohne VBA gibt ers keine Probleme.
Weiß jemand Rat?
Sheets(Cells(3, 7).Value).Select
Range("A1:Q1").Select
ActiveWindow.Zoom = True
Range("A1").Select
Application.DisplayFullScreen = True