Zeitformat
19.11.2003 19:47:39
Benjamin
möchte Zeitdaten automatisch in einem Textfeld einer UserForm konvertieren lassen.
Leider klappt das nicht mit nachfolgendem Code (ist für Beträge mit zwei Kommastellen).
Ist es möglich, den Code so umzustricken, das ein Zeitformat angezeigt wird (zB. bei Eingabe 1045 konvertierung in das Format 10:45)?
Private Sub TagArbZeit_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
With TagArbZeit
If TagArbZeit > 0 Then
If InStr(TagArbZeit.Value, ",") = 0 Then TagArbZeit.Value = TagArbZeit.Value / 100
ElseIf TagArbZeit = 0 Or TagArbZeit = "" Then Exit Sub
End If
End With
End Sub
Grüße Benjamin