Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: automatisch Zoom-Faktor beim Öffnen

automatisch Zoom-Faktor beim Öffnen
06.01.2015 11:35:42
Wolfango
Hallo zusammen,
ich möchte, dass beim Öffnen einer Excel-Datei für sämtliche enthaltenen Arbeitsblätter automatisch ein bestimmter Zoomfaktor eingestellt wird (80%).
Gibt es dafür einen VBA-Code?
Danke und Gruß,
Wo

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ActiveWindow.Zoom = 80
06.01.2015 11:39:41
Matthias
Hallo
Code in DieseArbeitsmappe
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveWindow.Zoom  80 Then
ActiveWindow.Zoom = 80
End If
End Sub
Gruß Matthias

AW: automatisch Zoom-Faktor beim Öffnen
06.01.2015 11:41:56
Rudi
Hallo,
Private Sub Workbook_Open()
Dim wks As Worksheet
Application.ScreenUpdating = False
For Each wks In Worksheets
wks.Activate
ActiveWindow.Zoom = 80
Next
'  Sheets(1).Activate
End Sub

Gruß
Rudi

Anzeige
AW: automatisch Zoom-Faktor beim Öffnen
06.01.2015 14:34:44
Wolfango
Vielen Dank!
Funktioniert bestens!
Gruß, Wo
Anzeige
Anzeige

Infobox / Tutorial

Excel Zoom-Faktor beim Öffnen automatisieren


Schritt-für-Schritt-Anleitung

Um den Zoom-Faktor in Excel dauerhaft einzustellen, kannst du VBA verwenden. Hier ist eine einfache Methode, um den Zoom beim Öffnen einer Excel-Datei auf 80% zu fixieren:

  1. Öffne deine Excel-Datei.
  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.
  3. Doppelklicke auf DieseArbeitsmappe im Projektfenster.
  4. Füge den folgenden Code ein:
Private Sub Workbook_Open()
    Dim wks As Worksheet
    Application.ScreenUpdating = False
    For Each wks In Worksheets
        wks.Activate
        ActiveWindow.Zoom = 80
    Next
    Application.ScreenUpdating = True
End Sub
  1. Schließe den VBA-Editor und speichere die Datei als Makro-aktivierte Arbeitsmappe (Dateiendung .xlsm).
  2. Schließe und öffne die Datei erneut, um den Zoom zu testen.

Häufige Fehler und Lösungen

  • Fehler: Der Zoom-Faktor wird nicht übernommen

    • Lösung: Stelle sicher, dass du den Code im richtigen Modul (DieseArbeitsmappe) eingefügt hast und die Datei als .xlsm speicherst.
  • Fehler: Der Zoom funktioniert nicht für alle Blätter

    • Lösung: Vergewissere dich, dass der Code in der Workbook_Open-Subroutine korrekt implementiert ist und alle Arbeitsblätter durchläuft.

Alternative Methoden

Falls du den Zoom-Faktor nicht über VBA einstellen möchtest, kannst du auch die Excel-Optionen nutzen:

  1. Gehe zu Datei -> Optionen -> Erweitert.
  2. Scrolle nach unten zu Anzeige und suche die Einstellung für den Zoom.
  3. Hier kannst du den Standard-Zoom festlegen, der beim Öffnen neuer Arbeitsblätter verwendet wird.

Beachte jedoch, dass diese Methode nicht so flexibel ist wie VBA und keine individuellen Einstellungen für bereits existierende Arbeitsblätter ermöglicht.


Praktische Beispiele

Wenn du beispielsweise eine Präsentation in Excel erstellst und beim Öffnen der Datei einen Zoom von 100% wünschst, kannst du den Code einfach anpassen:

Private Sub Workbook_Open()
    Dim wks As Worksheet
    Application.ScreenUpdating = False
    For Each wks In Worksheets
        wks.Activate
        ActiveWindow.Zoom = 100
    Next
    Application.ScreenUpdating = True
End Sub

Du kannst den Zoom auch auf das Maximum in Excel einstellen, zum Beispiel 400%, aber bedenke, dass dies die Lesbarkeit beeinträchtigen kann.


Tipps für Profis

  • Nutze die activewindow.zoom-Eigenschaft, um den Zoom-Faktor programmatisch anzupassen, je nach Inhalt oder Benutzeranpassungen.
  • Experimentiere mit Workbook_SheetActivate, um den Zoom zu ändern, wenn zwischen Blättern gewechselt wird.
  • Speichere deine Excel-Datei regelmäßig, insbesondere wenn du mit VBA arbeitest, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich den Zoom für alle Arbeitsblätter gleichzeitig festlegen?
Du kannst den oben genannten VBA-Code verwenden, der durch alle Arbeitsblätter iteriert und den Zoom für jedes Blatt festlegt.

2. Kann ich den Zoom auch auf 100% einstellen?
Ja, ändere einfach die Zahl im Code von 80 auf 100 oder jeden gewünschten Wert.

3. Funktioniert dieser VBA-Code in allen Excel-Versionen?
Ja, solange du eine Version von Excel verwendest, die VBA unterstützt, sollte der Code in Excel 2010 und später funktionieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige