Ingevoerde datum in een week omzetten

[JMo]

Hoe kan ik een datum bijv.

datum = DateValue(31-3-2010)

omzetten naar een week nummer?
Is dit in vba zonder fouten ook mogelijk?

 

[Haije]

welke excelversie gebruik je?

 

[leofact]

Excel heeft de functie weeknummer(datum), maar die gaat soms de fout in.
Het is weeknummer, zoals wij dat kennen reken je als volgt uit:

=INTEGER((A1-DATUM(JAAR(A1-WEEKDAG(A1-1)+4);1;3)+WEEKDAG(DATUM(JAAR(A1-WEEKDAG(A1-1)+4);1;3))+5)/7)

meer infomatie

Mvg Leo

 

[JMo]

datum zoeken

De functie is ok, kan ik uit een lijst met datums op een sheet ook het weeknr. extraheren?
Bijvoorbeeld door VLookup te gebruiken? Ik krijg steeds errors omdat ik niet zoek naar een getal
en de datums opgemaakt zijn met typ datum.

 

[leofact]

De functie geeft een getal als uitkomst. Daar kun je dus op zoeken.
Eventueel kun je deze in een (verborgen) tussenkolom zetten en dan in die kolom zoeken.
Post anders even een voorbeeld bestandje als je er hiermee niet uitkomt

 

[snb]

Voor uitgebreide uitleg in Excel en VBA:

http://www.snb-vba.eu/VBA_ISO_weeknummer.html

Als je met Excel 2010 werkt:

Sub M_snb()
    MsgBox Application.WeekNum(Date, 21)
End Sub

 

[JMo]

omzetten van een string naar een weeknummer

=Weeknum(datum, type 2) functie werkt voor de Europese tijd!:thumb: