"Mutation"

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Range("AT2").Select <--- da "springt" der Cursor
End Sub

Private Sub SpinButton1_SpinUp()
Dim c As Range
ActiveCell.Offset(-1, 0).Select
Set c = Range("AT2")
If ActiveCell.Value <= c Then
MsgBox ("Der erste Eintrag wurde erreicht")
Else
txtMNr = ActiveCell.Value

Exit Sub

End If
Range("A1").Activate
End Sub

Private Sub SpinButton1_SpinDown()
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value <> "" Then
txtMNr = ActiveCell.Value

Else
MsgBox ("Der letzte Eintrag wurde erreicht")
Exit Sub
End If
Range("A1").Activate
End Sub

Private Sub cmdAbbrechen_Click()
Unload Me
End Sub

Oder kann ich auf SELECT bei der RANGE-Ansprache verzichten??

Danke für eine Berichtigung des Scriptes.