excel vba formule 1°dag van de week

Status
Niet open voor verdere reacties.

MARINA111

Gebruiker
Lid geworden
19 sep 2014
Berichten
53
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?
 
Misschien kan de formule slimmer, maar heb daar niet naar gekeken.
Code:
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]
 
Ik denk dat de formule een stuk simpeler kan:
=A1-(WEEKDAG(A1)-2)

In VBA:
Maandag = Range("A1") - (Weekday(Range("A1"), vbSunday) - 2)
 
Laatst bewerkt:
Misschien kan je het even in de evaluate stoppen Ed.
Ik ga naar bed.
 
Code:
private sub Combobox1_change()
   if combobox1.listindex>-1 then cells(1,2)=cdate(combobox1.value)-weekday(combobox1.value,3)
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan