excel vba formule 1°dag van de week

[MARINA111]

Beste,

de excelformule =DATUM(JAAR(A1);1;1)+KIEZEN(WEEKDAG(DATUM(JAAR(A1);1;1);2);1;-1;-2;-3;-4;-5;2)+(WEEKNUMMER(A1;2)-1)*7 zorgt ervoor dat de maandag van de week van cel a1 wordt weergegeven.
Deze formule zou ik nu in vba willen: als er een datum geselecteerd wordt in een combobox er telkens de maandag van die week in een cel komt.
Kan iemand mij helpen?

 

[HSV]

Misschien kan de formule slimmer, maar heb daar niet naar gekeken.

range("b1") = [date(year(a1),1,1)+CHOOSE(WEEKDAY(date(year(a1),1,1),2),1,-1,-2,-3,-4,-5,2)+(WEEKNUM(a1,2)-1)*7]

 

[edmoor]

Ik denk dat de formule een stuk simpeler kan:
=A1-(WEEKDAG(A1)-2)

In VBA:
Maandag = Range("A1") - (Weekday(Range("A1"), vbSunday) - 2)

 

[HSV]

Misschien kan je het even in de evaluate stoppen Ed.
Ik ga naar bed.

 

[snb]

private sub Combobox1_change()
   if combobox1.listindex>-1 then cells(1,2)=cdate(combobox1.value)-weekday(combobox1.value,3)