Hallo zusammen,
ich möchte, das VBA mir aus einer Tabelle vom heutigen Datum an, die letzen 6 Monate ausgibt.
Ich habe das über eine IF-Anweisung gemacht.
If Month(Sheets("Tabelle2").Cells(4 + i, 2)) = Month(Date) _
Or Month(Sheets("Tabelle2").Cells(4 + i, 2)) = Month(Date) - 1 _
Or Month(Sheets("Tabelle2").Cells(4 + i, 2)) = Month(Date) - 2 _
Or Month(Sheets("Tabelle2").Cells(4 + i, 2)) = Month(Date) - 3 _
Or Month(Sheets("Tabelle2").Cells(4 + i, 2)) = Month(Date) - 4 _
Or Month(Sheets("Tabelle2").Cells(4 + i, 2)) = Month(Date) - 5 _
Then ...
Teoretisch funktioniert das auch so lange wie ich nicht von Januar (01) auf Dezember (12) wechsle.
Z.B. Aktuell ist März (03)
In der If Anweisung überpürft er den Zellenwert z.B. If "12" = "03" - 4. Ab 12 gehts so nicht mehr. Hat jemand eine bessere Idee?
Gruß und Danke Ingo