Excel VBA / Makro Zoomen

Hallo Andreas,
<br />du kannst auch alle Blätter gruppieren und dann gemeinsam zoomen:
<br />

Sub Zoomen()

Dim i As Integer

Dim varSheets() As Variant

Dim mySh As Worksheet

Set mySh = ActiveSheet

Application.ScreenUpdating = False

For i = 1 To Sheets.Count

ReDim Preserve varSheets(i - 1)

varSheets(i - 1) = Sheets(i).Name

Next

Sheets(varSheets).Select

ActiveWindow.Zoom = 100

mySh.Select

Application.ScreenUpdating = True

End Sub

Claus
<br />

Hallo Andreas,
<br />Zoomen geht nur für das aktive Fenster. Du müsstest eine Schleife über alle Blätter laufen lassen, diese aktivieren und dann zoomen:
<br />

Sub Zoomen()

Dim i As Integer

Application.ScreenUpdating = False

For i = 1 To Sheets.Count

Sheets(i).Activate

ActiveWindow.Zoom = 100

Next

Application.ScreenUpdating = True

End Sub

Reicht es nicht, wenn ein Blatt beim Aktivieren auf 100% gezoomt wird?
<br />Code in das Codemodul von "Diese Arbeitsmappe":
<br />

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

ActiveWindow.Zoom = 100

End Sub

Claus
<br />

Hallo Claus,
<br />wie immer super hilfreich und kompetent. Hat super geklappt, Dankeschön.
<br />Jetzt ist dieser Code ja in "Diese Arbeitsmappe" abgelegt.
<br />Wie weise ich denn diesen Code einer Schaltfläche zu.
<br />Beim Makro / Modul weiß ich das, hier leider nicht.
<br />Danke Dir
<br />Viele Grüße
<br />Andreas
<br />

Hallo Andreas,
<br />Workbook_SheetActivate ist ein Ereignis, das immer ausgeführt wird, wenn ein Blatt aktiviert wird. Du brauchst also keinen Button.
<br />Claus
<br />

Hallo Andreas,
verwende einen Scrollbar aus den ActiveX-Steuerelementen, Dort gibt es das Scrollbar_Change-Event.
Dort kannst du dann eingeben:
Private Sub ScrollBar1_Change()
With ActiveWindow
.Zoom = ScrollBar1.Value
End With
End Sub
Die Min- und Max-Werte des Scrollbar kannst du im Eigenschaften-Fenster eingeben.
Claus