Zoomfaktor per Makro global einstellen

11. April 2010
Martin Althaus Von Martin Althaus, Excel, Office ...

Wie Sie den Zoomfaktor für alle Tabellenblätter ändern

Ü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

  • Excel Vorlagen zum Sofort-Download
  • Geprüfte Vorlagen zum Sofort-Einsatz
  • Gratis Makros & Add-Ins im Downloadcenter

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"