VBA code Datum aus Zahlenfolge

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "Zusammenfassung" Or ActiveSheet.Name = "Auswertung" Or ActiveSheet.   _
_
_
_
Name = "LGAV" Or ActiveSheet.Name = "Stammdaten" Or ActiveSheet.Name = "Unfall_Krank" Then Exit  _
_
_
Sub
Dim RaBereich As Range, RaZelle As Range
Dim InS As Integer
Dim InM As Integer
'   Bereich der Wirksamkeit
Set RaBereich = Range("C:H")
On Error GoTo Fehler
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
With RaZelle
If .Value  "" Then
If IsNumeric(.Value) And InStr(.Value, ":") = 0 And _
InStr(.Value, ",") = 0 Then
If Len(Target.Value) > 2 Then
InS = Left(.Value, Len(.Value) - 2)
InM = Right(.Value, 2)
Else
'                            Stunden haben das Primat
'                             InS = .Value
'                             InM = 0
'                            Minuten haben das Primat
InS = 0
InM = .Value
End If
.Value = InS & ":" & InM
End If
End If
End With
End If
Next RaZelle
Set RaBereich = Nothing
Fehler:
Application.EnableEvents = True
End Sub