AW: Datumsformat
02.03.2005 18:17:36
Josef
Hallo Rolf!
Geht meines Erachtens nur mit VBA!
Folgender Code akzeptiert sowohl "6.2." als auch "6,2,", weil das
Komma für die Eingabe bequemer ist!
Er gilt für die Spalte "A"!
Ob die Eingabe ein sinnvolles Datum ist, wird nicht geprüft!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
If Target Like "*.*." Or Target Like "*,*," Then
Target.NumberFormat = "@"
Target = Replace(Target, ",", ".")
Target = Format(Left(Target, InStr(1, Target, ".") - 1), "00") & "." & _
Format(Mid(Replace(Target, ".", ""), InStr(1, Target, "."), 2), "00") & "."
End If
End If
ERRORHANDLER:
Application.EnableEvents = True
End Sub
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!