Hallo zusammen

Ich habe hier einen Code ertellt, wo die Aktion bei einer Änderung der Zelle ausgeführt weren sollte.

Wenn ich den Code durchspiele kommt folgendes Makros-Fenster.

Unten der Quellcode.

Private Sub Worksheet_Change(ByVal Target As Range)

For Zeile = 3 To 10

Sheets("Tabelle2").Cells(Zeile, "D") = WorksheetFunction.YearFrac(Sheets("Tabelle2").Cells(Zeile, "C"), Date)
 
If Sheets("Tabelle2").Cells(Zeile, "C") = 0 Then

   Sheets("Tabelle2").Cells(Zeile, "D") = ""

End If


Next Zeile

End Sub