ich habe eine Liste mit Datumseinträgen in folgendem Format: DD.MM.YYYY.
Es handelt sich um Grenzen für die Auswertung von Betriebsjahren. (z.B. aktuelle Grenze ist heute der 28.08.2012). Wenn das neue Betriebsjahr beginnt, soll es also bis zum 28.08.2013 laufen. Es wäre nun nicht richtig in einem Macro 365 Tage darauf zu adieren weil es ja Schaltjahre gibt. Gibt es eine Möglich keit in einem Datumsformat einfach nur das Jahr um Faktor 1 zu erhöhen?
~
...
Do Until ActiveCell.Offset(0, 0) = ""
TOC = ActiveCell.Offset(0, 0).Value
ActiveCell.Offset(1, 0).Select
differenz = (StartMonat - TOC) / 365
If differenz >= 0 And differenz startfinancialyear = TOC + 0
endfinancialyear = TOC + 365
ActiveCell.Offset(-1, 1) = startfinancialyear
ActiveCell.Offset(-1, 2) = endfinancialyear
Else
...
Loop
~
Danke im Vorraus!
Karsten