Leider habe ich noch nicht die Kenntnisse, aber bestimmt kann mir jemand helfen. Vielen Dank.
Private Sub CommandButton1_Click()
'hochzählen
call schritt(1)
End Sub
Private Sub CommandButton2_Click()
'runter
call schritt(-1)
End Sub
Private Sub CommandButton3_Click()
'zurücksetzen
call schritt(0)
End Sub