Veldeigenschappen pivottable

[jheesterbeek]

Hoi forummers,

Ik maar veel gebruik van draaitabellen en wil altijd hetzelfde format voor de cijfers. Om te voorkomen dat ik dit iedre keer opnieuw handmatig moet aanpassen wil ik dit opnemen in een macro en deze koppelen aan een knop in mijn werkbalk.
Hiervoor heb ik onderstaande macro opgenomen met de macro recorder, maar helaas geeft deze een foutmelding bij het afspelen.
Kan iemand mij helpen een macro te maken die alle veldinstellingen van een geselecteerde draaitabel aanpast?

Range("F10").Select
With ActiveSheet.PivotTables("Draaitabel2").PivotFields("Som van Periode 04")
.NumberFormat = "#.##0_ ;[Rood]-#.##0 "
End With

 

[jheesterbeek]

Niemand die raad weet....??

 

[Topper6628]

Wat ik meestal doe, is de draaitabel verversen zodat ik de opmaak kwijt ben. Dan zet ik macro opnemen aan en voer de benodigde stappen uit. De volgende keer is het na het verversen dus slechts nog een kwestie van de macro opstarten. Hiervoor maak ik dan meestal een knop in het overzicht.