Case-Select verkürzen

[Rabe]

Hi Uwe,

probiere es doch mal mit Cells(2, "D") oder besser Cells(2, 4) ! ;)

klar, Du hast recht. Ich hatte es noch gemerkt.

So, jetzt habe ich es so gelöst:

Code:

Mon = DateDiff("m", CDate(Cells(2, "D").Value), Now())
   MsgBox Mon

Damit muß ich nur noch das Startdatum in Zelle D2 eintragen und immer in der Spalte des aktuellen Monats werden die Zahlen eingetragen, super!