Datum aus Kalenderwoche

ich weiß, dass das Thema schon häufiger vorkam, und ich habe auch schon das Archiv befragt.
Es ist nur so, dass ich mit den gegebenen Funktionen nicht ganz zurecht komme, ich sie nicht auf meinen Fall anpassen kann.

Ich ermittele nun mit:

Sub kw()

Dim kw As Integer

kw = DatePart("ww", Date, vbMonday, vbFirstFourDays)

End Sub

die aktuelle Kalenderwoche. Funzt (anscheinend) ganz gut.

Jetzt muss ich aber per VBA in eine Zelle das Datum des Montags der jeweiligen KW und in eine weitere das Datum des Sonntags eintragen. Soll nachher so aussehen:

13.05.2002 bis 19.05.2002

Wer kann mir helfen?

Gruß

Matthias V.