folgenden Code habe ich mir in der Hoffnung, dass er funktioniert, aus dem Netz gezogen. Leider schmeißt er mir einen Fehler raus, den ich nicht nachvollziehen kann.
Die Uhrzeit soll wahlweise durch Spindown oder Spinup in 5 Minuten Schritten von 00:00:00 bis 23:59:59 verändert werden.
Private Sub SpinButton1_SpinDown()
With ctrl2
If TextBox3 = vbNullString Then
TextBox3 = Format(TimeSerial(0, 5, 0), "hh:mm")
Else
TextBox3 = TextBox3(TimeValue(TextBox3) - TimeSerial(0, 5, 0), "[h]:mm")
End If
End With
End Sub
Private Sub SpinButton1_SpinUp()
With ctrl2
If TextBox3 = vbNullString Then
TextBox3 = Format(TimeSerial(0, 5, 0), "hh:mm")
Else
TextBox3 = TextBox3(TimeValue(TextBox3) + TimeSerial(0, 5, 0), "[h]:mm")
End If
End With
End Sub
Kann mir jemand einen Tip geben?! Danke im voraus!