Use Variables in makro for PivotFields, PivotTables or Array

Hello to all,

i want to set up a vba macro which will copy the pivot filters from one pivot table to other pivot tables in the same excel file.

First i do thjs with full coding of the elements like sheet, pivot table, pivot fields and array.

Code like this, i made for every pivot table and for every pivot filter.

In second step no i will write one code for all pivot tables and pivot fields where the values
for pivot tables and pivot fields will come from variables.

examble see attached picture, -> green marked is the code that works,
-> red marked is the code that fails.

But this fails with following error text. "The item could not be found in the OLAP-Cube".

What do i wrong ?

Can anyone give me a solution ?

regards
Manfred


Here comes the example code (note the code is reduced)

Please Login or Register  to view this content.