weeknummer afleiden van datum Excel 2010

[marc63]

Ik wil graag het weeknummer achter een datumveld vermelden in excel 2010.

Als ik in een veld A1 een datum waarde ingeef bv 40667 is dat met datumweergave als veldeigenschap 4 mei 2011. Met de formule =weeknummer(A1;1) krijg ik als resultaat weeknummer 19. Dit behoort m.i. echter weeknummer 18 te zijn in 2011.

Wat doe ik fout of hoe kan het slimmer?

 

[Cobbe]

Gebruik deze functie en in de cel --> =ISOWeeknumber(cel.adres).

Public Function IsoWeekNumber(d1 As Date) As Integer
' Attributed to Daniel Maher
Dim d2 As Long
d2 = DateSerial(Year(d1 - Weekday(d1 - 1) + 4), 1, 3)
IsoWeekNumber = Int((d1 - d2 + Weekday(d2) + 5) / 7)
End Function

 

[hoogteijling]

Of zonder VBA met deze formule:

=ALS(A1="";"";INTEGER((A1-SOM(REST(DATUM(JAAR(A1-REST(A1-2;7)+3);1;2);{1E+99\7})*{1\-1})+5) /7))

Het ALS zorgt er alleen voor wanneer er geen datum is ingevult in A1 dat er dan niet #GETAL komt te staan in de weeknummer cel.
Hieronder de formule zonder ALS

=INTEGER((A1-SOM(REST(DATUM(JAAR(A1-REST(A1-2;7)+3);1;2);{1E+99\7})*{1\-1})+5) /7)

Groeten Marcel

 

[marc63]

Is gelukt dank jullie wel