Tastatureingabe in Uhrzeit umwandeln
06.01.2005 11:00:10
Peter
ich habe von Boris gestern eine kurze aber knackige
Prozedur zum umwandeln einer Tastatureingabe in ein
Datum erhalten. (siehe Anlage)
Gibt es sowas auch für Uhrzeiten ?
Peter
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Datum
If Target.Count > 1 Then Exit Sub
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
On Error GoTo errorhandler
Application.EnableEvents = False
Target = CDate(Format(Target, "0-00-00"))
Application.EnableEvents = True
Exit Sub
errorhandler:
Target.ClearContents
Application.EnableEvents = True
End Sub
Anzeige