Arbeitszeit ohne Doppelpunkt mit sekunden
10.08.2019 07:31:55
Werner
ich habe eine Arbeitszeitmappe um den Doppelpunkte zu sparen habe ich einen code. Der Code ist leider nur Umwandlung in Stunden:Minuten ohne Sekunden, siehe unten.
Ich brauche es aber mit ss = hh:mm:ss , da ich keine Ahnung habe von VBA, bitte ich Euch mich zu unterstützen.
Ich bedanke mich schon jetzt in Voraus!
Danke
LG Werner Kiel
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Eingabebereich As String
Dim Eingabe, Zeitwert
On Error GoTo ChgEvent_Error
Eingabebereich = "B8:I38"
If Not Application.Intersect _
(Target, ActiveSheet.Range(Eingabebereich)) _
Is Nothing _
And _
IsNumeric(Target.Value) _
And _
Target.Cells.Count = 1 Then
Application.EnableEvents = False
Eingabe = Format(Target.Value, "0000")
Zeitwert = _
Left(Format(Eingabe, "0000"), Len(Eingabe) - 2) & _
":" & _
Right(Format(Eingabe, "0000"), 2)
Target.Value = Zeitwert
End If
ChgEvent_Error:
Application.EnableEvents = True
End Sub
Anzeige