Text in Datumswert umwandeln (ohne Punkteingabe)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
If Target.Column <> 1 Then Exit Sub
If IsEmpty(Target) Or Selection.Cells.Count > 1 Then Exit Sub
If Len(Target.Text) > 6 Then Target.ClearContents: Exit Sub
If Len(Target.Text) = 6 Then
Target.Value = Format(DateSerial(Right(Target.Text, 2), _
Mid(Target.Text, 3, 2), Left(Target.Text, 2)), "dd.mm.yy")
End If
Exit Sub
Fehler:
Target.ClearContents
Exit Sub
End Sub