Draaitabel in macro's

[Arjee]

Goedemiddag, ben nieuw hier.
Ik ben op dit moment bezig om een draaitabel te maken waarin we de gehele omzetrapportage en nog wel meer zichtbaar kunnen maken. Werkt perfect. Punt is dat de mensen die dit moeten gaan gebruiken geen xl experts zijn. Zelf ben ik er redelijk thuis in, behalve de wereld van macro's en visual basic.

Nu wil ik dus een paar 'standen' van de draaitabel achter een knop zetten zodat iedereen ermee om kan gaan. Maar dat valt dus niet mee. Iemand een id hoe ik dit aan moet pakken?. Alvast bedankt!

edit:
Ik weet wel hoe ik een macro moet opnemen en ik kan de achterliggende code ook wel achter een knop krijgen. Probleem is natuurlijk dat je geen eenduidige beginpositie hebt. Ik kan wel opnemen dat het veld maand verborgen moet worden, maar een volgende keer staat dat hele veld er niet in. Een veld als klantnaam zou dan blijven staan omdat ik die niet verwijderd heb in de macro. Is er iets van een commando om de gehele draaitabel te resetten oid? Dan heb ik een eenduidige uitgangspositie. Dan moet ik wel wat verder kunnen komen

 

[Arjee]

Het is me inmiddels redelijk gelukt. Moet wel eerst zelf de draaitabel legen, maar dat moet ze dan maar lukken. Alleen: waarom onthoud die macro niet dat ik het getal heb ingesteld als valuta? Hier heb ik (een deel van) de macro: Hoe kan ik dat number format instellen als een valuta?

With ActiveSheet.PivotTables("Draaitabel1").PivotFields( _
"Aantal van Totale Prijs")
.Function = xlSum
.NumberFormat = "#.##0,00_-"
End With
Edit: Numberformat is gewoon aan te passen in 0,00_-. Als iemand nu nog weet hoe een draaitabel te resetten ben ik eruit.
In vba ben ik al een heel eind. Weet iemand hoe ik alle draaitabelvelden in 1 keer kan selecteren?

 

[Hovawart]

Ik ben zelf totaal niet thuis in draaitabellen. Maar zou je niet een extra werkblad als Start / referentie punt van de macro kunnen gebruiken ?

 

[Arjee]

Je bedoelt dat ik zeg maar in elke macro een nieuwe draaitabel ga opzetten. Dat id heb ik vaker gehoord. Ik ben een beetje bang dat dit wat lang gaat duren. Maar ik kan het proberen.