SpinButton überspringt

Private Sub SpinButton1_Change()

Sheets(SpinButton1.Value).Activate

UserForm_Initialize

End Sub

Private Sub UserForm_Initialize()

Dim X As Single, Y As Single, LZoom As Long

Dim cCon As Control

 '--------------- für Bildschirmanpassung --------------------------------------

Dim hwndForm As Long, hwndMenu As Long

Dim intY, intLast, intNext As Integer

'------------------------------------------------------------------------------

  hwndForm = FindWindow(vbNullString, Me.Caption)           'damit verankert

'------------ ab hier festgelegt, UF kann nicht verschoben werden ----------------

   If hwndForm > 0 Then

        hwndMenu = GetSystemMenu(hwndForm, 0)

   If hwndMenu > 0 Then DeleteMenu hwndMenu, &HF010, &H0

   End If

End With

        With Application

            .Calculation = xlAutomatic

                 .MaxChange = 0.001

        End With

       Application.EnableEvents = True

    Me.SpinButton1.Min = 1

    Me.SpinButton1.Max = 5

u.s.w. ...