keine Autom. Datumsumwandlung

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LoI As Long
Application.EnableEvents = False
If IsEmpty(Target) Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column  1 Then Exit Sub
For LoI = Len(Target) To 1 Step -1
If Not IsNumeric(Mid(Target, LoI, 1)) Then Target = Left(Target, LoI - 1) & Mid(Target,  _
_
LoI + 1, Len(Target))
Next LoI
'       If Len(Target) > 3 Then Target = Format((Target), "0/00/0")
Application.EnableEvents = True
End Sub