Sorry jongens, maar ik vermoed dat hier helemaal geen VBA voor nodig is. Bij het doorlopen van de PivotTable wizard heb je op het einde de knop "Lay-out". Als de weken/maanden elk in hun kolom staan, kan je de PivotTable enkel de gevens voor die week/maand laten zien door het veld week/maand naar het pivot-veld "Page" te slepen.
Bart