Private Sub SpinButton1_SpinDown()
If MsgBox("Daten wirklich ändern?", vbYesNo) = vbYes Then
Range("A1") = Range("A1") - 1
End If
End Sub
Private Sub SpinButton1_SpinUp()
If MsgBox("Daten wirklich ändern?", vbYesNo) = vbYes Then
Range("A1") = Range("A1") + 1
End If
End Sub
Musst Du natürlich an Deine Bedürfnisse anpassen.