ich bin am verzweifeln.
Alles in Userform
Möchte die Zeiten von 2 Comboboxen berechen.
ComboBox1: 7:00, 7:15, 7:30 etc
zuzüglich
ComboBox2: 0:30, 0:40, 0:50 etc
Wenn ich nun das Ergebnis in einer Textbox ausgeben möchte kommen die komischten Zeiten herraus.
z.B. 8:00 auswähle und 0:30 bekomme ich als Ergebnis 12:00
Dim von As Variant, von1 As Variant
Dim Dauer As Variant, Dauer1 As Variant
Dim Std As Variant, Std1 As Variant
von = UserForm1.ComboBox1.Value
Dauer = UserForm1.ComboBox2.Value
If von "" Then von1 = von1 + von
If Dauer "" Then Dauer1 = Dauer1 + Dauer
Std = CDate(Dauer1) + CDate(von1)
Std1 = Std * 24
Std1 = Format(Std1, "hh:mm")
UserForm1.TextBox1.Value = Std1
Danke!
Lg Ludmila