Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2016to2020
2016to2020
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Zoom für verschiedene Sheets

Forumthread: Zoom für verschiedene Sheets

Zoom für verschiedene Sheets
28.08.2025 09:31:50
NicoHendrik
Guten Morgen,
irgendwie bekomme ich folgendes nicht hin:

Beim öffnen der Tabelle soll der Zoom von Sheets 1 & 2 auf 70% gestellt werden.

Ab Sheet 3 bis …. Soll der Zoom auf 80% sein.

Alles weitere wie ScrollArea und SmallScroll funktioniert einwandfrei
Nur leider mein Zoomen nicht.

Hilfe bitte.
Gruß Nico 

Private Sub Workbook_Open()



'Ab Sheet 3 Startzoom einstellen, Scrollbereich festlegen

'und Bereich auf 1. Januar stellen



Dim i As Long

For i = 3 To Worksheets.Count

  If i  15 Then Worksheets(i).ScrollArea = "$A$1:$OR$30"

  ActiveWindow.Zoom = 80

  ActiveWindow.SmallScroll ToRight:=-500

  ActiveWindow.SmallScroll Down:=-2000

Next



'Startzoom für Sheet 1 & 2 einstellen

Worksheets("Sheet1").Activate

        ActiveWindow.Zoom = 70

Worksheets("Sheet2").Activate

        ActiveWindow.Zoom = 70



Range("B2").Select



Call BenutzerModus



End Sub

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zoom für verschiedene Sheets
28.08.2025 10:11:48
GerdL
Moin NicoHendrik! 
Private Sub Workbook_Open()



    'Ab Sheet 3 Startzoom einstellen, Scrollbereich festlegen

    'und Bereich auf 1. Januar stellen

    

    Dim i As Long

    For i = 3 To Worksheets.Count

      If i  15 Then

        Worksheets(i).ScrollArea = "$A$1:$OR$30"

        Worksheets(i).Activate

      End If

      ActiveWindow.Zoom = 80

      ActiveWindow.SmallScroll ToRight:=-500

      ActiveWindow.SmallScroll Down:=-2000

    Next

    Exit Sub

    'Startzoom für Sheet 1 & 2 einstellen

    Worksheets("Sheet1").Activate

            ActiveWindow.Zoom = 70

    Worksheets("Sheet2").Activate

            ActiveWindow.Zoom = 70

    

    Range("B2").Select

    

    Call BenutzerModus

    

End Sub

Für ActiveWindow ist das jeweilige Blatt zu aktivieren,
Gruß Gerd
Anzeige
AW: Zoom für verschiedene Sheets
28.08.2025 10:24:14
NicoHendrik
hallo Gerd klappt leider nicht.

Sheets 1 & 2 bleiben auf 80 % und Call BenutzerModus wird nict aufgerufen

Gruß Nico
AW: Zoom für verschiedene Sheets
28.08.2025 10:29:28
hary
Moin
Das liegt am Exit Sub im Code. Aber hier eine andere Idee. Nimm die Zoomanweisung aus deinen Code.
Wird bei jedem Aktivieren eines Blattes ausgefuehrt.
Code in den Code der Arbeitsmappe. 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Select Case Sh.Name

  Case "Sheet1", "Sheet2"

    ActiveWindow.Zoom = 70

  Case Else

    ActiveWindow.Zoom = 80

End Select

End Sub

gruss hary
Anzeige
AW: Zoom für verschiedene Sheets
28.08.2025 10:34:12
GerdL
Moin Hary,

es war mein Fehler, das Exit Sub nach dem Testen nicht zu entfernen.
Das Problem von NicoHendrik hing am ActiveWindow ohne Aktivierung der Blätter.

Gruß Gerd
AW: Zoom für verschiedene Sheets
28.08.2025 10:54:05
NicoHendrik
Danke Hary, klappt jetzt prima.

Gruß Nico
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum