Gruppe
DatumZeit
Problem
Ich habe in eine Spalte eine große Anzahl von Uhrzeiten einzugeben. Hierbei hemmt die Eingabe des Doppelpunktes bei z.B. "12:15" den Eingabefluß. Wie kann ich die Eingabe vereinfachen?
StandardModule: basMain
Sub InZeit()
Dim rng As Range
Dim sTxt As String
For Each rng In Selection.Cells
sTxt = rng.Value
rng.NumberFormat = "hh:mm"
rng.Value = TimeSerial(Left(sTxt, 2), Right(sTxt, 2), 0)
Next rng
End Sub