Uhrzeiteingabe

[Michael Gehrer]

Frage, ist es möglich Tabellen für die Uhrzeitangabe so zu
formatieren, daß bei Eingabe von 0800 automatisch in der
Tabelle 08:00 erscheint und wenn ja wie? Leider bringe ich
es mit der Zellformatierung hh:mm nicht zuwege.

Danke

Michael

[Thomas Ramel]

Grüezi Michael

Michael Gehrer schrieb:

Die einfachste Methode dürfte die Autokorrektur sein:

Erstzen: ',,' (2xKomma)
Durch: ':' (Doppelpunkt)

Durch die Eingabe von 08,,00 auf der Zehnertastatur ehältst Du dann die
korrekte Uhrzeit.
Eine Lösung durch ein Makro wäre ebenfalls denkbar, doch nicht wirklich
effizienter.

--
Mit freundlichen Grüssen

Thomas Ramel
- MVP für Microsoft-Excel -

http://www.4853.ch/Schlesinger

[michael...@tilak.at]

>-----Originalnachricht-----

>.
>
Danke Thomas, nur das löst mein Problem auch nicht. Ich
will die Uhrzeit auf der Tastatur OHNE irgendwelche
Kommaeingaben etc. eingeben können und daß danach im Feld
der Doppelpunkt zwischen Stunden und Minuten angezeigt
wird.

[Thomas Ramel]

Grüezi Michael

michael...@tilak.at schrieb:

>
> Danke Thomas, nur das löst mein Problem auch nicht. Ich
> will die Uhrzeit auf der Tastatur OHNE irgendwelche
> Kommaeingaben etc. eingeben können und daß danach im Feld
> der Doppelpunkt zwischen Stunden und Minuten angezeigt
> wird.

Dies ist über eine einfache Formatierung nicht zu realisieren, wenn du
anschliessend mit der eingegebenen zeit weiterrechnen willst.
Kopiere die folgende Prozedur in den VBA-Teil des Tabellenblattes, in
dem Du die Funktionialität nutzen willst und passe den bereich
entsprechend an:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errorhandler
If Target.Count > 1 Or Target = "" Then Exit Sub
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Len(Target) <> 4 Then
MsgBox "Bitte eine 4-stellige Uhrzeit _ohne_ Doppelpunkt eingeben!"
Target.ClearContents
Target.Select
Target.NumberFormat = "@"
End If
Target.NumberFormat = "hh:mm"
Target = Left(Target, 2) & ":" & Right(Target, 2)
errorhandler:
Application.EnableEvents = True
End Sub

Wichtig:
Formatiere den Bereich im Tabellenblatt als Text, da sonst führende
Nullen 'verloren' gehen können.