Sehe meinen "Fehler" noch nicht???
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.