Problem mit Uhrzeitberechnung in TextBoxen
Frank
Einen wunderschönen Spätabend euch Allen!!!
Mittels folgendem Code lasse ich mir die Stunden bgerechnen, das ganze in einer UF!
Private Sub ComboBox4_Change()
Me.ComboBox4 = Format(ComboBox4, "hh:mm")
TextBox6.Value = ComboBox4.Text
With frmEingabe
If TextBox5 < TextBox6 Then
TextBox7.Value = Format(CDate(TextBox6) - CDate(TextBox5), "hh:mm")
End If
If TextBox5 > TextBox6 Then
TextBox7.Value = Format(CDate(TextBox5) - CDate(TextBox6), "hh:mm")
End If
End With
If TextBox5 = TextBox6 Then
TextBox7 = "00:00"
End If
TextBox18.Value = CDate(TextBox7.Value) * 24
TextBox18.Value = Format(TextBox18, "0.00")
End Sub
Nun möchte ich aber gern, dass der Code auch funzt wenn ich in der ComboBox4 24:00 auswähle!!!
Es kommt immer die Fehlermeldung - "Typen unverträglich".
Ich habe auch schon die Formatierung geändert gehabt: "[hh]:mm". Hat auch nichts gebracht!
Was muss ich tun!!!!
Danke im Vorraus!
Herzlichst, Frank H.