VBA Week nummer voor excel 2010

[caffie]

ik wil graag een week nummer laten berekenen vanaf een DateSerial(jaar,maand,dag1)
Dit moet op een oude PC gebeuren met office 2010
Deze ondersteunt geen ISOweeknum.


Wie kan me er bij helpen
Ik heb de volgende VBA code maar het werk niet goed en ik weet niet wat ik fout doe
Wie kan me verder helpen.

datum =  DateSerial(jaar, maand,dag)

Begindatum = DateSerial(Year(datum), 1, 1)
Enddatum =  datum
teldagen = datum - Begindatum 
Weekdagcorrectie = Weekday(DateSerial(year(datum), 1, 1), 2)
wk_nr = (teldagen + Weekdagcorrectie ) / 7
weeknr = Application.WorksheetFunction.RoundUp(wk_nr, 0)
Cells(1,x) = weeknr

Cells(1,x)
X is een teller


Vast heel erg bedankt

 

[snb]

Sub M_snb()
  msgbox application.weeknum(dateserial(2022,2,22),21)
End Sub

of in Excel <2010

Sub M_snb()
   t = Date + 59
   MsgBox (DatePart("y", t) - 3) \ 7 + 1 
   MsgBox DatePart("ww", t - Weekday(t , 2) + 4, 2, 2)
End Sub

 

[AccessGuru]

Dit moet op een oude PC gebeuren met office 2010 Deze ondersteunt geen ISOweeknum.

Ook op een oude office te doen met een extra UDF:

Function ISOWeekNummer(InDate As Date) As Long
Dim dt As Date


    dt = DateSerial(Year(InDate - WeekDay(InDate - 1) + 4), 1, 3)
    ISOWeekNummer = Int((InDate - dt + WeekDay(dt) + 5) / 7)


End Function