eerst volgende dinsdag

[don42]

beste helpers,

wie kan mij aan de vba code helpen die in cel D2 de datum zet van de eerst volgende dinsdag
of de datum van de huidige dinsdag als dat het geval is
bvd

Don

 

[AlexCEL]

Moet het per se VBA zijn? Met een formule kan het ook wel:

=VANDAAG()+(WEEKDAG(VANDAAG();12)>1)*(8-WEEKDAG(VANDAAG();12))

 

[don42]

ik heb dit:

Deze formule vind de eerst volgende maandag
heb van alles geprobeerd maar komniet op de eesrt volgende dinsdag (7 mei) in dit geval

Range("d2").Value = "=TODAY() + MOD((-WEEKDAY(TODAY())+7+2),6)"

 

[AlexCEL]

Een gokje:

Range("d2").Value = "=TODAY()+7-WEEKDAY(TODAY(),13)"

 

[don42]

top

Jip dit werkt prima
kan je mij nog uitleggen hoe het zit met dat getal 13 in de formule

 

[AlexCEL]

Met WEEKDAG(..;13) stel je in dat vanaf woensdag wordt geteld, dus wo = 1, do = 2 t/m di = 7.

De 7-WEEKDAG(..;13) zorgt ervoor dat je op dinsdagen geen dagen erbij optelt, en voor de rest van de week precies het juiste aantal dagen tot de volgende dinsdag.

 

[don42]

dank je

werkt prima
nogmaals bedankt voor je hulp en uitleg
don