draaitabel in macro

[Etienne1978]

Hallo,

ik wil een draaitabel maken middels een macro. het probleem wat ik ondervind is het bereik. Het aantal kolommen is altijd hetzelfde maar het aantal regels niet. er komen steeds meer regels bij. de ene keer moet hij tot bijvoorbeeld regel 1000 en de volgende keer tot regel 1200.
de macro die ik heb gemaakt ziet de code er als volgt uit:

Sheets("Draaitabel").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"facturen!R4C1:R1278C21", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="'[facturen w-deel.xls]Draaitabel'!R1C1", TableName:= _
"Draaitabel5", DefaultVersion:=xlPivotTableVersion10

het bereik gaat dus tot regel 1278.
maar hoe moet ik de formule nu zodanig aanpassen dat hij steeds bij de laatste regel stopt.

alvast bedankt.

 

[Etienne1978]

Tevens is er nog een probleem. Als ik het bestand afsluit en vervolgens de macro weer wil laten lopen doet hij het niet meer hij geeft aan:

Fout 5 tijdens uitvoering:

Ongeldige procedure-aanroep of ongeldig argument.

Komt het omdat hij bij TableName:="Draaitabel5" aangeeft. of ligt het aan iets anders. Zo ja hoe moet ik dit probleem dan oplossen

 

[WimenBeer]

Je eerste probleem is makkelijk op te lossen.
Waarschijnlijk heb je deze macro via 'opnemen' aangemaakt en dan maakt Excel dit er van.

Oplossing

"facturen!$A:$U"

Dit zal er altijd voorzorgen dat alle rijen in dit bereik wordt meegenomen.

Je tweede probleem komt omdat als je de macro opstart je altijd een draaitabel met de zelfde naam gaat creeeren.
En die bestaat al dus krijg je deze boodschap.

Mijn belangrijkste vraag is WAAROM MAAK JE EEN DRAAITABEL VIA EEN MACRO.
Als een draaitabel bestaat dan werkt hij altijd en hoef je nooit meer iets aan te passen.
Denk daar ook even na.

Groet

Wim