Supportnet / Forum / Tabellenkalkulation
0000 in Zelle darstellen als 00:00, ohne manuelle Doppelpunkteingabe
Frage
Moechte eine 4-stellige Zahl in einer Zelle optisch als Uhrzeit dargestellt haben (z.B. nach Eingabe von 1235 wird in der Zelle 12:35 angezeigt), ohne den Doppelpunkt von Hand eingeben zu muessen. Moechte also nur 1235 eingeben und der Doppelpunkt sollte dann auf Grund der Formatierung nach "Enter" automatisch erscheinen. Gerechnet werden soll mit der Zelle nicht. Wuerde mir das Leben um zwei Klick pro Eingabe leichter machen. Vielen Dank im Voraus.
Antwort 1 von LowNoise
Wie wär´s mit einem eintrag in der AutoKorrektur Liste.
0000 ersetzen durch 00:00
Oder am Ende des Dokumentes 1x "Suchen & Ersetzen" drüber laufen lassen.
Gruß
Micha
0000 ersetzen durch 00:00
Oder am Ende des Dokumentes 1x "Suchen & Ersetzen" drüber laufen lassen.
Gruß
Micha
Antwort 2 von Hasso
Bei mir und OpenOffice geht es folgendermaßen:
00\:00
Bei dieser Art der Formatierung geht genau das, was Du wolltest.
Wenn Du da 1234 eingibst, kommt 12:34 raus.
Dabei kannst Du gleich eine komplette Zeile oder Spalte formatieren.
Gruß
Hasso
00\:00
Bei dieser Art der Formatierung geht genau das, was Du wolltest.
Wenn Du da 1234 eingibst, kommt 12:34 raus.
Dabei kannst Du gleich eine komplette Zeile oder Spalte formatieren.
Gruß
Hasso
Antwort 3 von goodsin
Danke Micha
Danke Hasso
Herzlichen Dank fuer Eure Muehe.
Der Tipp von Hasso ist goldrichtig. Super. Genau das was ich brauchte.
Nochmals vielen Dank
Andreas
Danke Hasso
Herzlichen Dank fuer Eure Muehe.
Der Tipp von Hasso ist goldrichtig. Super. Genau das was ich brauchte.
Nochmals vielen Dank
Andreas
Antwort 4 von Hasso
Büdde schön - Gerne geschehen!
Gruß
Hasso
Gruß
Hasso
Antwort 5 von kvtv
Hallo Hasso,
darf ich mal was zu Deiner Antwort fragen. Hätte gerne gewußt wie man mit den Formatierungen auch noch Rechnen kann. Das heißt das man auch die Zeiten addieren kann.Vielen Dank im voraus.
Gruß Karsten
darf ich mal was zu Deiner Antwort fragen. Hätte gerne gewußt wie man mit den Formatierungen auch noch Rechnen kann. Das heißt das man auch die Zeiten addieren kann.Vielen Dank im voraus.
Gruß Karsten
Antwort 6 von nighty
hi karsten :)
damit :))
gruss nighty
Private Sub worksheet_Change(ByVal Target As Range)
On Error GoTo fehler
Application.EnableEvents = False
With Worksheet
If Len(Target.Value) = 1 Then Target.Value = "00" & ":0" & Mid$(Target.Value, 1, 1)
If Len(Target.Value) = 2 Then Target.Value = "00" & ":" & Mid$(Target.Value, 1, 2)
If Len(Target.Value) = 3 Then Target.Value = Mid$(Target.Value, 1, 1) & ":" & Mid$(Target.Value, 2, 2)
If Len(Target.Value) = 4 Then Target.Value = Mid$(Target.Value, 1, 2) & ":" & Mid$(Target.Value, 3, 2)
End With
Application.EnableEvents = True
End
fehler:
If Application.EnableEvents = False Then Application.EnableEvents = True
End Sub
damit :))
gruss nighty
Private Sub worksheet_Change(ByVal Target As Range)
On Error GoTo fehler
Application.EnableEvents = False
With Worksheet
If Len(Target.Value) = 1 Then Target.Value = "00" & ":0" & Mid$(Target.Value, 1, 1)
If Len(Target.Value) = 2 Then Target.Value = "00" & ":" & Mid$(Target.Value, 1, 2)
If Len(Target.Value) = 3 Then Target.Value = Mid$(Target.Value, 1, 1) & ":" & Mid$(Target.Value, 2, 2)
If Len(Target.Value) = 4 Then Target.Value = Mid$(Target.Value, 1, 2) & ":" & Mid$(Target.Value, 3, 2)
End With
Application.EnableEvents = True
End
fehler:
If Application.EnableEvents = False Then Application.EnableEvents = True
End Sub
Antwort 7 von kvtv
Hallo Nighty,
vielen Dank für die schnelle Antwort. Ich werde es am Wochenende mal ausprobieren.
Vielen Dank nochmal.
Gruß Karsten
vielen Dank für die schnelle Antwort. Ich werde es am Wochenende mal ausprobieren.
Vielen Dank nochmal.
Gruß Karsten