pivottable

[nobody11]

hoi iedereen,

ik probeer met een vba code dezelfde bewerking toe te passen op alle pivottables in een worksheet.. het aantal kan variëren,vandaar dat ik het met deze code zou willen regelen, maar er lukt iets niet..

Sub Macro3()

    Dim pivotTable As pivotTable
    For Each pivotTable In ActiveSheet.PivotTables

pivotTable.PivotFields("Cluster").CurrentPage = "Europe"
    
    Next
End Sub

iemand die weet wat er mis gaat? ik krijg de error

"unable to get the pivotfields property of the pivottable class" (runtime error 1004)

bedankt!!!

 

[cow18]

1. Is Europa wel een keuzemogelijkheid in al die verschillende draatabellen ?
2. en als je eerst er "Europa" in een stringvariabele stopt en dan die variabelel gebruikt om je currentpage te bepalen ?

sContinent="Europa"
pivotTable.PivotFields("Cluster").CurrentPage = sContinent

 

[nobody11]

1. Is Europa wel een keuzemogelijkheid in al die verschillende draatabellen ?
2. en als je eerst er "Europa" in een stringvariabele stopt en dan die variabelel gebruikt om je currentpage te bepalen ?

sContinent="Europa"
pivotTable.PivotFields("Cluster").CurrentPage = sContinent

het is inderdaad een keuze in alle pivottables..

 

[nobody11]

1. Is Europa wel een keuzemogelijkheid in al die verschillende draatabellen ?
2. en als je eerst er "Europa" in een stringvariabele stopt en dan die variabelel gebruikt om je currentpage te bepalen ?

sContinent="Europa"
pivotTable.PivotFields("Cluster").CurrentPage = sContinent

en is dit ook de code die dit voor alle pivottables in een worksheet doet? ongeacht het aantal pivottables?

thanks!!

 

[Wigi]

Nobody,

Je begint al een nieuwe topic terwijl er nog andere niet topics onbeantwoorde reacties gekregen hebben.

Bijvoorbeeld:
http://www.helpmij.nl/forum/showthread.php/556450-conditional-format?p=3553874

 

[nobody11]

Nobody,

Je begint al een nieuwe topic terwijl er nog andere niet topics onbeantwoorde reacties gekregen hebben.

Bijvoorbeeld:
http://www.helpmij.nl/forum/showthread.php/556450-conditional-format?p=3553874

huh? staat toch op opgelost die thread! al sinds gisteren....

 

[cow18]

ja, die vervangt dat ene zinnetje in jouw macro3

 

[nobody11]

ja, die vervangt dat ene zinnetje in jouw macro3

ik bljif helaas dezelfde error krijgen...

"unable to get the pivotfields property of the pivottables class#

Sub Macro3()

    Dim pivotTable As pivotTable
    For Each pivotTable In ActiveSheet.PivotTables
sContinent = "Europe"
pivotTable.PivotFields("Cluster").CurrentPage = sContinent
    
    Next
End Sub

 

[cow18]

heb je een (uitgekleed) voorbeeldje
2003 of 2007 ???

Oei, ik zie het plots,
Dim pivotTable As pivotTable
dit is om problemen vragen
maak daar
Dim pvtTable As pivotTable
en pas de rest gelijklopend aan
gebruik nooit van die namen die VBA zelf gebruikt of je gaat geheid in de fout

Sub Macro3()

Dim pvtTable As pivotTable
For Each pvtTable In ActiveSheet.PivotTables
sContinent = "Europe"
pvtTable.PivotFields("Cluster").CurrentPage = sContinent

Next
End Sub