ActiveWindow.Zoom = True
Sub ZoomSetzen()
Dim s As Range
Application.ScreenUpdating = False
Set s = Selection 'Auswahl merken
ActiveSheet.Range("A:H").Select
ActiveWindow.Zoom = True
s.Select 'Auswahl wiederherstellen
Application.ScreenUpdating = True
End Sub
Um den Zoom eines Fensters in Excel VBA zu setzen, ohne eine Auswahl zu treffen, kannst du einfach den folgenden Code verwenden:
ActiveWindow.Zoom = TrueDieser Befehl zoomt auf den aktuell aktiven Bereich. Wenn du eine spezifische Zoomstufe festlegen möchtest, kannst du stattdessen eine Zahl angeben:
ActiveWindow.Zoom = 150 ' Setzt den Zoom auf 150%Stelle sicher, dass das richtige Arbeitsblatt aktiv ist, wenn du den Befehl ausführst.
Fehler: Der Zoom funktioniert nicht, wenn ich keinen Bereich auswähle.
Lösung: Es ist nicht notwendig, einen Bereich mit Select auszuwählen, da ActiveWindow.Zoom auf den aktuell aktiven Bereich angewendet wird. Wenn du jedoch sicherstellen möchtest, dass ein bestimmter Bereich gezoomt wird, kannst du den Bereich vor dem Zoom festlegen:
ActiveSheet.Range("A:H").Select
ActiveWindow.Zoom = TrueFehler: Ich bekomme eine Fehlermeldung, wenn ich ActiveWindow.Zoom verwende.
Lösung: Überprüfe, ob das aktive Fenster tatsächlich ein Excel-Fenster ist. Wenn du beispielsweise in einem anderen Programm bist, wird der Befehl nicht funktionieren.
Eine alternative Methode, um den Zoom eines bestimmten Bereichs in Excel VBA zu setzen, ist, die ursprüngliche Auswahl zu speichern und anschließend den Zoom auf den gewünschten Bereich anzuwenden. Hier ein Beispiel:
Sub ZoomSetzen()
Dim s As Range
Application.ScreenUpdating = False
Set s = Selection ' Auswahl speichern
ActiveSheet.Range("A:H").Select
ActiveWindow.Zoom = True
s.Select ' Auswahl wiederherstellen
Application.ScreenUpdating = True
End SubDiese Methode ist nützlich, wenn du nach dem Zoom den vorherigen Bereich wiederherstellen möchtest.
ActiveSheet.UsedRange.Select
ActiveWindow.Zoom = TrueActiveSheet.Columns("A").Select
ActiveWindow.Zoom = TrueVermeide unnötige Select-Befehle: Du kannst oft die Select-Methode vermeiden, um deinen Code schneller und effizienter zu machen. Verwende stattdessen direkte Bezugnahmen auf Objekte.
Verwende Application.ScreenUpdating: Setze Application.ScreenUpdating auf False, um das Flackern des Bildschirms während des Ausführens von VBA-Code zu vermeiden.
Zoom auf spezifische Werte setzen: Wenn du mit verschiedenen Zoomstufen arbeitest, ist es hilfreich, diese als Konstanten zu definieren:
Const ZOOM_100 As Integer = 100
ActiveWindow.Zoom = ZOOM_1001. Kann ich den Zoom auch auf einen bestimmten Wert setzen?
Ja, anstelle von True kannst du einen spezifischen Zoomwert angeben, z. B. ActiveWindow.Zoom = 150, um auf 150% zu zoomen.
2. Was passiert, wenn ich ActiveWindow.Zoom ohne vorherige Auswahl verwende?
Der Befehl setzt den Zoom auf den aktuell aktiven Bereich. Sollte kein Bereich aktiv sein, wird der Zoom nicht angewendet.
3. Funktioniert dieser Code in allen Excel-Versionen? Ja, der Code sollte in allen modernen Versionen von Excel funktionieren, die VBA unterstützen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen