Ich will einen Makro für eine Userform schreiben mit dem ich den Zoomfaktor anpassen kann. Er gibt mir aber eine Fehlermeldung aus: "Fehler beim Kompilieren: Deklaration der Prozedur entspricht nicht der Beschreibung einer Ereignisses oder einer Prozedur mit dem selben Namen".
Beim Öffnen der Datei wird
Dim zoomfaktor as Integer
ausgeführt. Hier der Code:
Private Sub CommandButton1_Click(zoomfaktor As Integer)
Sheets(Array("Blatt 1", "Blatt 2", "Blatt 3", _
"Blatt 4")).Select
ActiveWindow.Zoom = zoomfaktor
ActiveWindow.SmallScroll up:=5000
ActiveWindow.SmallScroll ToLeft:=150
Sheets("Willkommen").Select
Unload Me
End Sub
Private Sub OptionButton1_Click()
zoomfaktor = 100
End Sub
Private Sub OptionButton2_Click()
zoomfaktor = 125
End Sub
Private Sub OptionButton3_Click()
zoomfaktor = 150
End Sub