Halli Hallo,

ich wuerde gerne mit Hilfe einer Schleife mehrere Listen ausdrucken die in Form einer Pivottabelle vorhanden sind.
Gibt es eine Funktion oder sonstiges mit deren Hilfe ich automatisch den naechsten Eintrag eines Pivot-Tabellen-Feldes aktivieren kann?
Ich weiss nicht genau, ob meine Frage so klar wird... von daher hier mein Code:

'Loop for all 214 customers
Do While Counter <= CustomerNumber
'Choose the next Customer
ActiveSheet.PivotTables("PivotTable2").PivotFields("Customer").CurrentPage = _ "(All)" ' hier wuerde ich nun gerne autom. den naechsten aufrufen
...
Range("A1:I132").Select
Selection.PrintOut Copies:=1, Collate:=True
...
Loop 'End loop for all 214 customers

Wuerde mich freuen, wenn mir da jemand auf die Spruenge helfen koennte!

LG aus dem sonnigen Oslo
Susanne