Format hh:mm
01.08.2018 11:03:26
Berg
ich bitte um Hilfe bei der Formatierung von Werten.
Über eine Userform gebe ich für eine Stundenerfassung die monatliche Arbeitszeit in Form von z.B. 40:00 Stunden pro Monat ein.
Dabei prüfe ich direkt in der Textbox ob die Werte richtig eingeben werden über:
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox3 = "" Then Exit Sub
If Not IsDate(Me.TextBox3) Then
MsgBox ("Eingabe ist nicht vom Type Time!")
TextBox3.BackColor = RGB(100, 100, 199)
Else
TextBox3.BackColor = RGB(255, 255, 255)
TextBox3 = Format(TextBox3, "hh:mm")
End If
End Sub
Wenn ich die Daten dann in der Tabelle abspeicher, möchte ich dass der Eingabewert aus der Textbox auch im Format 40:00 in die Zelle geschrieben wird (weil die Stunden dann später summiert werden).
Dies hab ich wie folgt probiert aber damit komme ich auch nicht über 24:00 Stunden hinweg (Whs. das falsche Format)
Tabelle3.Cells(lZeile, 5).Value = CDate(TextBox3)
Tabelle3.Cells(lZeile, 5).NumberFormat = "hh:mm"
Weis hier jemand wie man das richtig macht?
Vorab allerbesten Dank für die Hilfe!
VG Berg