Private Sub UserForm_Initialize()
Dim vZoom As Variant
vZoom = InputBox("Bitte Zoomwert festlegen:", , "150")
If vZoom = "" Then Exit Sub
Me.Zoom = CInt(vZoom)
End Sub
Private Sub UserForm_Zoom(Percent As Integer)
Me.Width = Me.Width * Percent / 100
Me.Height = Me.Height * Percent / 100
End Sub