Zeitwert auf Uhrzeit addieren
27.10.2021 12:33:37
Tim
ich habe in einer Listbox-Spalte Uhrzeiten stehen, welche in hh:mm formatiert sind.
Auf diese Uhrzeit möchte ich gern einen Wert aus einer Textbox addieren (Dezimalwert).
Meine Herausforderung besteht darin, dass aktuell der Wert aus der Textbox, an die Minuten geschrieben wird und nicht als Stunde zählt.
Wie kann ich erreichen, dass er die Uhrzeit um den Dezimalwert aus der Textbox richtig addiert wird?
Bsp.: Listbox "22:00" + Textbox "0,5" = Listbox "22:30"
Private Sub Button_Test_Click()
Dim i As Long
For i = 0 To UserForm1.ListBox1.ListCount - 1
If UserForm1.ListBox1.Selected(i) Then
With UserForm1.ListBox1
.List(i, 3) = UserForm1.ListBox1.List(i, 3) + UserForm1.Stunden
End With
End If
Next i
End Sub
Anzeige