Zoom Bereich funktioniert nicht.
02.09.2025 09:16:15
NicoHendrik
mit den folgenden Code sollen 3 Sheets mit verschiedene Zoom % geöffnet werden.
Alle andere sind auf 100% eingestellt.
Leider klappt es mit den 3 Sheets Start, Erklärungen und Einstellungen nicht.
Bitte um Hilfe.
Gruß Nico
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.ScreenUpdating = False
'Sheets Zoom Bereich festlegen
Select Case Sh.Name
Case "Start", ActiveWindow.Zoom = 90
Case "Erklärungen", ActiveWindow.Zoom = 65
Case "Einstellungen", ActiveWindow.Zoom = 75
Case Else
ActiveWindow.Zoom = 100
End Select
Application.ScreenUpdating = True
End Sub
Anzeige