Excel Makro Zoom

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

Hallo Andreas,
ZOOM ist eine Eigenschaft von ActiveWindow. Du müsstest jedes Blatt nacheinander aktivieren, um es zoomen zu können. Das bringt dir nur Flackern auf den Bildschirm.
Du kannst einer Zelle den Wert des Scrollbalken zuweisen.
Claus

ok Dankeschön Claus
Viele Grüße
Andreas

Hallo Claus,
Dankeschön für die Rückmeldung.
Wie würde denn der Code für das Xactive Steuerelement aussehen, wenn nicht das aktive Tabellenblatt
angesprochen wird, sondern andere?
Und gibt es auch hier eine Möglichkeit sich den Zoomwert anzeigen zu lassen?
Viele Grüße
Andreas

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 />