wo liegt der Fehler

[PetrolMaxxe]

Hallo Thomas,

ich möchte in c5:c35 uhrzeiten schreiben
ich gebe 700 ein und erhalte 7:00 aber möchte auch in c5:c35 haus schreiben können und exel soll HAUS machen.

darauf bezog sich mein Vorschlag.

Wenn du in Spalte d5:d35 und E5:E35 nur die Urzeit und C5:C35 Text +Uhrzeit haben willst, kann man auf Target.Column <>3 prüfen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C5:E35")) Is Nothing Then
        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 = ""
        End If
    End If
End Sub

Gruß Uwe