Macro voor filter PivotTable

[Dutchf1ghter]

Vanuit een OLAP query krijg ik data in een excel pivottable binnen. In de rapportfilter heb ik de 'customer name' staan. Hier kan ik op klant selecteren. Nu wil ik eigenlijk een macro hebben die op een klantnaam filtert die in een bepaalde cel staat geschreven.

Onderstaande macro heb ik opgenomen doormiddel van te filteren op 1 klant. Nu wil ik echter op de plek waar KLANTNAAM staat een cel hebben staan. Kan iemand me hiermee helpen?



Sub Macro8()
'
' Macro8 Macro
'

'
ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[Customer].[Customer Name].[Customer Name]").VisibleItemsList = Array( _
"[Customer].[Customer Name].&[KLANTNAAM]")
End Sub

 

[Elsendoorn2134]

Dutchf1ghter,

Aangezien je geen bestand hebt bijgesloten kan ik niets testen maar probeer het volgende eens:

ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[Customer].[Customer Name].[Customer Name]").VisibleItemsList = Array( _
Sheets("Blad1").Range("L2").Value))

Waarbij je in cel L2 het filter heb opgegeven.

Veel Succes.

 

[Dutchf1ghter]

Dank voor je hulp, maar het werkt helaas niet.
Onderstaand 2 printscreens, de eerste van de code in VBA, de tweede van de pivot table filter.

Ik kan helaas geen bestand toe voegen omdat de data komt vanuit een beveiligde database.

 

[Elsendoorn2134]

Dutchf1ghter,

Jammer dat het op deze manier niet werkte, ik heb kortgeleden iets gebouwd met ongeveer hetzelfde probleem.
Kijk eens of je hier iets aan hebt.

Bekijk bijlage HelpMijVBAAanpassenDraaitabel.xlsm

Veel Succes.