|
Hallo zusammen,
ich bekomme bei meinem Code eine Fehlermeldung mit der ich leider nichts anfangen kann:
Eigentlicher Ziel des Codes:
Bei einer Veränderung im Worksheet 1 soll die Routine "überfällig" aufgerufen werden. Diese prüft die Liste von oben nach unten durch, ob das eingetragene Datum in der Zeile vor oder nach dem heutigen Datum liegt. Je nachdem ob die Maßnahmen in dieser Zeile als "offen, läuft oder überfällig" hinterlegt sind, soll dies angepasst werden. Eigentlich hat das bisher einwandfrei funktioniert. Seit neustem steigt er aber beim Schreiben in die Zeile aus. Aufrufen der Prozedur und prüfen der If-Bedingungen klappt also, nur die Then Befehle nicht. Danke für eure Inputs
Hier der vereinfachte Code (hinterlegt im Worksheet 1):
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
|