wo liegt der Fehler

[PetrolMaxxe]

Besingung: Wenn Text im Bereich C5:C35 dann in Großbuchstaben. Das geht so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C5:E35")) Is Nothing Then
        Application.EnableEvents = False
        If IsNumeric(Target) Then
            If Len(Target) = 3 Then
                Target = CDate(Left(Target, 1) & ":" & Right(Target, 2))
            End If
        Else
            If Target.Column <> 3 Then
                Target = ""
            Else
                Target = UCase(Target)
            End If
        End If
        Application.EnableEvents = True
    End If
End Sub

Gruß Uwe