wo liegt der Fehler

[PetrolMaxxe]

Hall Thomas,

wenn es nur darum geht reicht das:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C5:C35")) Is Nothing Then
        If IsNumeric(Target) Then
            If Len(Target) = 3 Then
                Target = CDate(Left(Target, 1) & ":" & Right(Target, 2))
            End If
        End If
    End If
End Sub

Gruß Uwe