Fehler beim Kompilieren

[Thomasius]

kommt office mit den befehlen nicht klar ?
=WENN(ODER(C6="Feiertag";C6="Krank";C6="Urlaub";C6="x");ZEIT(8;0;0);WENN(C6="Frei";ZEIT(0;0;0);D6-C6-E6))
=WENN(C7="Urlaub";"";WENN(C7="Feiertag";"";WENN(C7="Frei";"";WENN(C7="Krank";""; WENN($C$2<F7;(F7-$C$2)*24;"")))))
=WENN(C20="";"";WENN($C$2>F20;($C$2-F20)*24;""))
habe es bei office 2007 benutzt keine fehler jetzt bei office2021
kommen fehlermeldungen
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Eingabe As Variant
On Error GoTo fehler1
If Not Intersect(Target, Range("C5:C35")) Is Nothing Then
          If Not IsNumeric(Target) Then Target.Value = UCase(Target)   Ucase wird dargestellt und Private Sub Worksheet_Change(ByVal Target As Range) wird dargestellt
      End If
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 = ""