Datum automatisch omzetten in weeknummer

[smvrolijk]

Hoi,

ik weet uberhaupt niet of het mogelijk is om een cel waarin een datum staat, in een andere cel automatische het weernummer weer te geven.

dus als voorbeeld

A1 01-01-2010 dat automatisch in B1 het getal 1 wordt ingevuld van weeknummer 1
A2 19-01-2010 dat automatisch in B2 het getal 3 wordt ingevuld van weeknummer 3
A3 26-02-2010 dat automatisch in B3 het getal 8 wordt ingevuld van weeknummer 8

Achterliggende gedachte is dat ik een hoeveelheid data in een draaitabel wil zetten, maar er alleen dagen als datum in staan (en andere gegevens), terwijl ik er een draaigrafiek op weekbasis van wil maken. Nu vul ik handmatig het weeknummer in voor alle dagen.


Persistence
Challenges are what make life interesting; overcoming them is what makes life meaningful

Dank je wel voor je feedback.

 

[smvrolijk]

heb het een en ander uitgedokterd via analysis tool kit....

vraag me alleen af dat ik als ik de functie weeknummer gebruik, het resultaat een week hoger is dan de daadwerkelijke week....

kan dat wel oplossen door er -1 bij te plaatsen
vraag me alleen af hoe dat komt

 

[Ron321]

Gebruik de zoekfunctie van dit forum eens op weeknummer, er is al het nodige over geschreven.

 

[krolik]

In cel b.v. A2: =(weeknum(A1))-1
Alleen in de cel voor 1-1-2010 komt dan 0. Dit zou eigenlijk week 53 van 2009 moeten zijn.
De 1e week van 2010 was minder dan 4 dagen, dus week 1 begon op 4-1-2010.

 

[snb]

Met deze UDF

Public Function ISOweeknum(ByVal Datum As Date) As Integer
    ISOweeknum = DatePart("ww", Datum + 4 - Weekday(Datum, 2), 2, 2)
End Function

Zet de UDF in een macromodule

zet in B1: =ISOweeknum(A1)

of met de formule in B1
=GEHEEL((A1-WEEKDAG(A1;2)+4-DATUM(JAAR(A1-WEEKDAG(A1;2)+4);1;1))/7)+1