Datum rekenen

[marina_peter]

Beste forummers,

Ik ben op zoek naar de volgende mogelijkheid;

Ik wil in een veld de functie nu() invoegen. Vervolgens wil ik in de onderliggende velden dat van de datum (nu) telkens automatisch één maand afgetrokken wordt.
v.b.
veld A10 nu() 23-03-2010

Veld A15 zou dan moeten zijn 23-02-2010
Veld A16 zou dan moeten zijn 23-01-2010
Veld A17 zou dan moeten zijn 23-12-2009
enzovoorts.....
Is voor bovenstaande een formule beschikbaar die dit automatisch doet.

Dank voor jullie reactie

Peter

 

[Hoornvan]

marina_peter,

Het bereik moet je wel even aanpassen.
Ik hoop dat het werkt.

Sub Vulin()
    [A15] = "=EDATE(R[-5]C,-1)"
  For Each cl In [A16:A25]
    cl.Value = "=EDATE(R[-1]C,-1)"
  Next
End Sub

Edit: Macro aan gepast, hij vuld nu ook A15 in.

 

[popipipo]

Via een andere weg kun je ook in Rome aankomen:

DATE(YEAR($A$10);MONTH($A$10)-ROW()+14;DAY($A$10))(A10))

en dan doortrekken naar beneden.

 

[snb]

Met VBA:

Sub Macro23()
    [B1] = "=today()"
    [B1:B20].DataSeries xlColumns, xlChronological, xlMonth, -1
End Sub

Met de hand
zet een datum in een cel; selcter die cel en breid die selectie naar beneden uit in de kolom.
Menubalk/Bewerken/doorvoeren/reeks/kolommen/datum/maand/interval -1/OK