ich habe folgendes Problem:
ich habe ein Dropdownmenü mit Jahreszahlen über die Datenüberprüfung generiert und möchte nur die Jahre angezeigt bekommen, die dem jetzigen entsprechen oder frühere. Da die anderen Zellen Formeln beinhalten müssten um es dynamisch zu gestalten bringt die Option leere Zellen ausblenden ja nichts.
Jetzt hab ich eine Anhäufung von If-Anweisungen geschrieben um dem entgegen zu wirken:
Sub Jahr_Anzeigen()
If Year(Now()) > Worksheets("Steuerung").Range("K30") _
And Worksheets("Steuerung").Range("K30") > Worksheets("Steuerung").Range("K29") _
Then Worksheets("Steuerung").Range("k31") = Worksheets("Steuerung").Range("K30") + 1
If Year(Now()) > Worksheets("Steuerung").Range("K31") _
And Worksheets("Steuerung").Range("K31") > Worksheets("Steuerung").Range("K30") _
Then Worksheets("Steuerung").Range("k32") = Worksheets("Steuerung").Range("K31") + 1
If Year(Now()) > Worksheets("Steuerung").Range("K32") _
And Worksheets("Steuerung").Range("K32") > Worksheets("Steuerung").Range("K31") _
Then Worksheets("Steuerung").Range("k33") = Worksheets("Steuerung").Range("K32") + 1
If Year(Now()) > Worksheets("Steuerung").Range("K33") _
And Worksheets("Steuerung").Range("K33") > Worksheets("Steuerung").Range("K32") _
Then Worksheets("Steuerung").Range("k34") = Worksheets("Steuerung").Range("K33") + 1
If Year(Now()) > Worksheets("Steuerung").Range("K34") _
And Worksheets("Steuerung").Range("K34") > Worksheets("Steuerung").Range("K33") _
Then Worksheets("Steuerung").Range("k35") = Worksheets("Steuerung").Range("K34") + 1
If Year(Now()) > Worksheets("Steuerung").Range("K35") _
And Worksheets("Steuerung").Range("K35") > Worksheets("Steuerung").Range("K34") _
Then Worksheets("Steuerung").Range("k36") = Worksheets("Steuerung").Range("K35") + 1
If Year(Now()) > Worksheets("Steuerung").Range("K36") _
And Worksheets("Steuerung").Range("K36") > Worksheets("Steuerung").Range("K35") _
Then Worksheets("Steuerung").Range("k37") = Worksheets("Steuerung").Range("K36") + 1
If Year(Now()) > Worksheets("Steuerung").Range("K37") _
And Worksheets("Steuerung").Range("K37") > Worksheets("Steuerung").Range("K36") _
Then Worksheets("Steuerung").Range("k38") = Worksheets("Steuerung").Range("K37") + 1
End Sub
Jetz meine Frage, wie kann ich das dynamisch und kürzer gestallten?Also das ich nicht auf die Zellen zugreifen muss sondern z.B. den Tabellennamen verwende oder so?