Zeiteingabe ohne Doppelpunkt
Winfried
ich habe diesen Code seit vielen Jahren für eine Erfassung von Arbeitszeiten genutzt (gefunden hier im Archiv 2003).
Es ergibt sich eine Besonderheit: Wenn man 2400 in die Zelle einträgt, wird daraus die Anzeige 00:01 bei 0000 bleibt die Zelle leer. Wie kann ich den Code ändern
damit eine Anzeige 00:00 erscheint, weil mit diesen Zeiten auch noch weiter gerechnet wird, und auch jemand um Mitternacht seinen Dienst beginnt.
Sub Formatierung(Zelle) Dim s%, m%, z% With Range(Zelle) If .Value = "" Then Exit Sub If IsNumeric(.Value) And InStr(.Value, ":") = 0 And InStr(.Value, ",") = 0 Then If Len(.Value) > 2 Then s = Left(.Value, Len(.Value) - 2) m = Right(.Value, 2) 'Bei dieser Einstellung kann keine Uhrzeit _ die mit 0 beginnt z.B. 00:30 eingegeben werden 's = .Value 'm = 0 Else s = 0 m = .Value End If .Value = s & ":" & m End If End With End Sub
Vielen Dank für eine hilfreiche Antwort
Winfried