Zitat:

Das ist doch genau das, was Perl-Piper meinte. Du findest mit der DatePart-Funktion einfach heraus, in welcher KW der 1.1. und der 31.1. liegt, und bist für Januar schon fertig. Das gleiche machst Du dann für jeden Monat. Dim dDatum As Date Dim KW1 As Long Dim KW2 As Long dDatum = CDate("1.1.2002") KW1 = DatePart("ww", dDatum) dDatum = CDate("31.1.2002") KW2 = DatePart("ww", dDatum) Das sollte doch gehen, oder?? Gruß, Thomas