Excel: datum en weeknummer

[Verwijderd]

Hoi ik ben opzoek naar een mogelijkheid om op basis van een in te voeren weeknummer de begin en enddatum van die week automatisch in twee cellen te plaatsen.

Tot op heden lukt het mij alleen om op basis van een datum het weeknummer te retouneren. dit is dus verkeerd om.
Wie heeft er een tip voor mij?

[riZZy]

Het kan ongetwijfeld beter, sneller en compacter, maar:

code:

Function DateFromWeekNumber(Year As Integer, WeekNumber As Integer) As Date
'Determines the date of the monday of a given year and weeknumber.


Dim StartDate As Date

' set startdate at 4 january of the given year
StartDate = DateValue("4 jan " & Year)
' determine the date of monday of the 4-jan week
StartDate = StartDate - (Weekday(StartDate, vbMonday) + 6) Mod 7
' add the weeknumbers to the first monday (1st week) of the given year
DateFromWeekNumber = DateAdd("ww", WeekNumber - 1, StartDate)
End Function

Dit geeft steeds de maandag van een bepaald weeknummer.