Option Explicit                                     ' Variablendefinition erforderlich

Private Sub Worksheet_Change(ByVal Target As Range)
    '**************************************************
    '* H. Ziplies                                     *
    '* 26.04.03; 14.11.05                             *
    '* erstellt von HajoZiplies@web.de                *
    '* http://Hajo-Excel.de/                          *
    '**************************************************
    ' Datum umwandeln von 010205 in 01.02.05
    Dim RaBereich As Range, RaZelle As Range
    ' Bereich der Wirksamkeit
    Set RaBereich = Range("B3:C20,D3:D7")
    ' noch mehr Bereiche
    ' Set RaBereich = Union(Range("C7:I26"), Range("L7:R26"), Range("U7:AA26"), Range("AD7:AJ26"))
    ' ab Vesion XP braucht der Schutz nicht aufgehoben werden
    ' Formatierung bei Schutz kann über Dialog Schutz eingestellt werden
    'ActiveSheet.Unprotect ("Passwort")
    For Each RaZelle In Range(Target.Address)
        If Not Intersect(RaZelle, RaBereich) Is Nothing And _
            Len(RaZelle.Value2) = 8 And IsNumeric(RaZelle.Value2) Then
            Application.EnableEvents = False
            RaZelle.Value = CDate(Mid(RaZelle.Value2, 7, 2) & "." & Mid(RaZelle.Value2, 5, 2) & "." _
                    & Mid(RaZelle.Value2, 1, 4))
            RaZelle.NumberFormat = "dd/mm/yy;@"
            Application.EnableEvents = True
        Else
            RaZelle.NumberFormat = "0"
        End If
    Next RaZelle
    Application.EnableEvents = True
    'ActiveSheet.protect ("Passwort")
    Set RaBereich = Nothing
End Sub