Uhrzeiten addieren und berechnen
17.11.2021 14:59:58
Pascal
ich befülle mittels folgendem Code eine Comboxox mit Uhrzeiten zwischen 06:00 und 23:45
Private Sub UserForm_Initialize()
Dim lngC As Long
With UserForm1.ComboBox1
.Clear
For lngC = 360 To 1435 Step 15
.AddItem Format(TimeSerial(0, lngC, 0), "hh:mm")
Next
End With
End Sub
das Resultat soll dann wiederum als Uhrzeit im Format "hh:mm" in eine neue Variable übergeben werden.
so in dieser Art:
Zeit = ComboBox1.Value
Zeitneu = Zeit + 15minuten (oder 45 Minuten)
Wäre sehr dankbar, wenn mir da jemand auf die Sprünge helfen könnte
Grüsse: Pascal