wer kann mir helfen ?

[Thomasius]

eins noch :
ich habe

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Eingabe As Variant
On Error GoTo fehler1

If Not Intersect(Target, Range("C2,H2,F37,F43,C5:E35")) Is Nothing Then
Application.EnableEvents = False
With Target
If Not IsNumeric(.Value) Then GoTo fehler1
If IsEmpty(Target) Then
Target.Value = ""
GoTo fehler1
End If
.Value = Left(Format(Target, "0000"), 2) & ":" & Right(Target, 2)
' funkt am besten
' Wenn Std über 24 und gleichzeit Minuten über 60 erfasst werden, wird Text zurückgegeben.
.NumberFormat = "[hh]:mm"
End With
End If

fehler1:
Application.EnableEvents = True
End Sub

klappt alles super nun möchte ich in F47 3 stellig haben habe das versucht :.Value = Left(Format(Target, "00000"), 3) & ":" & Right(Target, 2)
aber wie kann ich beide befehle verwenden ?