Ik weet niet juist hoe de eerste week wordt geteld. ik heb verondersteld dat als bv de eerste week slechts een halve week is, dat deze toch als 1 meetelt. De maandag daarop begint de volgende week.
Normaalgezien zou volgende code moeten werken
Public Function VeranderNaarDatum(Datum As String) As Date
Dim AantalWeken, Jaar, AantalDagen As Integer
Dim EersteDag As Single
AantalWeken = Val(Right(Datum, 2))
Jaar = Val("200" & Left(Datum, 1))
EersteDag = Weekday("1/1/" & Jaar, vbMonday)
AantalDagen = AantalWeken * 7 - EersteDag
VeranderNaarDatum = DateAdd("d", AantalDagen, "1/1/" & Jaar)
End Function
Er wordt telkens de laatste zondag van die week als datum gegeven (dit kan je uiteraard aanpassen).
Ik hoop dat dit een beetje geholpen heeft.