Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal TARGET As Excel.Range)
        
Dim ws As Worksheet
Dim Blattname As String

For i = 7 To 39
If TARGET.Address = "$I$" & i And IsEmpty(TARGET) = True Then
    Range("I" & i).Select
    ActiveCell.FormulaR1C1 = "=(HOUR(RC[-3])*60+MINUTE(RC[-3]))/60"
    Selection.Font.Bold = False  'Normalschrift

ElseIf TARGET.Address = "$I$" & i And IsEmpty(TARGET) = False Then
    Selection.Font.Bold = True  'Fettschrift
End If
Next i

For j = 7 To 39
If TARGET.Address = "$J$" & j And IsEmpty(TARGET) = True Then
    Range("J" & j).Select
    ActiveCell.FormulaR1C1 = "=(HOUR(RC[-3])*60+MINUTE(RC[-3]))/60/4"
    Selection.Font.Bold = False  'Normalschrift

ElseIf TARGET.Address = "$J$" & j And IsEmpty(TARGET) = False Then
    Selection.Font.Bold = True  'Fettschrift
End If
Next j

    For t = 7 To 39

    Blattname = ActiveSheet.Name
            If TARGET.Address = "$T$" & t And IsEmpty(TARGET) = True Then
                Range("T" & t).Select
                ActiveCell.FormulaR1C1 = "=IF(RC[-9]>0,0.0001,(RC[-5]-RC[-6])*24)"
                
              For Each ws In Sheets(Array(Blattname))
                  ws.Unprotect Password:="peterpan"
                  ws.Range("T7:T39").Locked = False
                Selection.Font.Bold = False  'Normalschrift
                  ws.Range("T7:T39").Locked = True
                  ws.Protect Password:="peterpan"
              Next

            ElseIf TARGET.Address = "$T$" & t And IsEmpty(TARGET) = False Then
                
              For Each ws In Sheets(Array(Blattname))
                  ws.Unprotect Password:="peterpan"
                  ws.Range("T7:T39").Locked = False
                Selection.Font.Bold = True  'Fettschrift
                  ws.Range("T7:T39").Locked = True
                  ws.Protect Password:="peterpan"
              Next
            
            End If
    Next t

End Sub

Hallo liebe Experten,

ich brauche Hilfe. Die o. g. Programmierung muss angepasst werden und ich habe so gar keine Ahnung davon. Statt in der T-Spalte soll die neue Formel in die U-Spalte. Der Rest soll unverändert bleiben.

Neue Formel                 =WENN(K7>0;0,0001;(T7))

Wenn Ihr mir helfen könntet, wäre das wundervoll.

Liebe Grüße

Lillyfee