Zoomfaktor per Makro global einstellen

Über die Funktion "Ansicht – Zoom" können Sie die Vergrößerung oder Verkleinerung des Excel-Bildschirms steuern. Wenn Sie das Kommando aufrufen, legen Sie den Zoomfaktor für das aktuelle Tabellenblatt fest. Dabei können Sie Standardfaktoren oder einen benutzerdefinierten Zoomfaktor wählen:

Um den Zoomfaktor in allen Tabellen einer Arbeitsmappe in einem Schritt festzulegen, markieren Sie die Tabellenblätter und rufen das Kommandos anschließend auf. So erledigen Sie diese Aufgabe per VBA:

Sub StelleZoomfaktorEin()
Dim Eingabe As String
Dim Tabelle As Worksheet
Eingabe = InputBox("Bitte legen Sie den " & _
 "Zoomfaktor für alle Blätter fest.", "Zoomfaktor")
If Eingabe <> "" Then
 For Each Tabelle In ActiveWorkbook.Worksheets
  Tabelle.Select
  ActiveWindow.Zoom = Eingabe
 Next Tabelle
End If
End Sub

Das Makro zeigt zuerst ein Eingabefenster an. Hier legen Sie den Zoomfaktor für alle Tabellenblätter fest.

Geben Sie eine ganz Zahl ein. Sie wird als Zoomfaktor in Prozent interpretiert. Zahlen größer als 100 vergrößern die Darstellung, Zahlen kleiner als 100 verkleinern die Darstellung.

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html