Supportnet / Forum / Tabellenkalkulation
Uhrzeit-Formatierung unter Excel während Eingabe
Frage
Hi,
Ich möchte gerne Uhrzeit ohne Doppelpunkt eingeben können, und nach Bestätigung (Return) mit Doppelpunkt formatiert bekommen.
Beispiel
Eingabe: 000200
(Return)
Ergebnis: 00:02:00
Vielen Dank im Voraus
Sylmo
Antwort 1 von eric3600
Zelle formatieren
Benutzerdefiniert -> 00":"00":"00
Benutzerdefiniert -> 00":"00":"00
Antwort 2 von Sylmo
Hi,
vielen Dank erst einmal.
Leider erkennt Excel das Eingegebene mit dieser Formatierung nur als Zahl und nicht als Uhrzeit, da ich aber damit rechnen kann, muss das Eingegebene als Uhrzeit erkannt werden.
Vielen Dank
Sylmo
vielen Dank erst einmal.
Leider erkennt Excel das Eingegebene mit dieser Formatierung nur als Zahl und nicht als Uhrzeit, da ich aber damit rechnen kann, muss das Eingegebene als Uhrzeit erkannt werden.
Vielen Dank
Sylmo
Antwort 3 von Knubbel
Antwort 4 von michael123
hi alle
ein kleines beispiel
lege den code in die gewuenschte tabelle und pass ihn gegebenfalls an
gruss michael
Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Worksheet
If Range(Target.Address).NumberFormat = "h:mm" Then
If Len(Target.Value) = 4 Then Target.Value = Mid$(Target.Value, 1, 2) & ":" & Mid$(Target.Value, 3, 2)
If Len(Target.Value) = 3 Then Target.Value = Mid$(Target.Value, 1, 1) & ":" & Mid$(Target.Value, 2, 2)
If Len(Target.Value) = 2 Then Target.Value = "00" & ":" & Mid$(Target.Value, 1, 2)
If Len(Target.Value) = 1 Then Target.Value = "00" & ":0" & Mid$(Target.Value, 1, 1)
End If
End With
Application.EnableEvents = True
End Sub
ein kleines beispiel
lege den code in die gewuenschte tabelle und pass ihn gegebenfalls an
gruss michael
Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Worksheet
If Range(Target.Address).NumberFormat = "h:mm" Then
If Len(Target.Value) = 4 Then Target.Value = Mid$(Target.Value, 1, 2) & ":" & Mid$(Target.Value, 3, 2)
If Len(Target.Value) = 3 Then Target.Value = Mid$(Target.Value, 1, 1) & ":" & Mid$(Target.Value, 2, 2)
If Len(Target.Value) = 2 Then Target.Value = "00" & ":" & Mid$(Target.Value, 1, 2)
If Len(Target.Value) = 1 Then Target.Value = "00" & ":0" & Mid$(Target.Value, 1, 1)
End If
End With
Application.EnableEvents = True
End Sub