Find dato for mandag i ønskede ISOuge vha. VBA

Noget i den retning:

Private Function beregnDatoMandag() As Date
Dim år As String, ugeNr As Integer, dato1 As Date, dato2 As Date
    ugeNr = Range("B1")
    år = CStr(Range("B2"))
    dato1 = "01-01-" & år
    dato2 = "03-01-" & år
   
    beregnDatoMandag = DateAdd("d", (ugeNr * 7) - 3, dato1) - Weekday(dato2)
End Function

Super det virker!!

Smukt, og tak for det hurtige svar..

Fint og selv tak.

NB: Som opgavestiller skal du ikke anvende Svar - men Kommentar. Forslagsstiller anvender anvender Svar, hvis det fremsendte skulle være løsningen på spørgsmålet - ellers Kommentar. Hvis et Svar fremsendes og dette kan godkendes - så Accepterer opgavestiller dette og tildeleler derved forslagsstiller de udlovede point. I modsat fald kan forslag Afvises.
Nu har du selv taget point - men fred være med det - du er ikke den første - så velkommen til Eksperten.