Sub worksheet_change(ByVal Target As Range)
call ueberfaellig
End Sub
Sub ueberfaellig()
Application.EnableEvents = False
Dim status As Long
status = 11
Do While IsEmpty(Worksheets(1).Cells(status, 9).Value) = False
If Worksheets(1).Cells(status, 9).Value < Date And Worksheets(1).Cells(status, 10).Value = "Offen" Then Worksheets(1).Cells(status, 10).Value = "Überfällig"
If Worksheets(1).Cells(status, 9).Value < Date And Worksheets(1).Cells(status, 10).Value = "Läuft" Then Worksheets(1).Cells(status, 10).Value = "Überfällig"
If Worksheets(1).Cells(status, 9).Value >= Date And Worksheets(1).Cells(status, 10).Value = "Überfällig" Then Worksheets(1).Cells(status, 10).Value = "Offen"
status = status + 1
Loop
Application.EnableEvents = True
End Sub