pivot steuern
Maze
bei meinem ersten Versuch zu diesem Problem klappte die Lösung leider nicht, vieleicht helft Ihr mir nochmal.
Meine Kunden habe ich zwecks Auswertungsflexibilität in einer Pivot mit allen notwendigen Spalten.
1.100 Kunden sollen dann z.B. auf 7 bestimmte reduziert werden.
Sheets("Pivot").Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Kunden Nr")
.PivotItems("1096047").Visible = True
.PivotItems("2053041").Visible = True
.PivotItems("3038010").Visible = True
.PivotItems("3068017").Visible = True
.PivotItems("3096001").Visible = True
.PivotItems("5002164").Visible = True
.PivotItems("6000003").Visible = True
Über den recorder kann das Häkchen für alle Kunden rausgenommen werden und die gesuchten angehakt, aber die "Prozedur" hat zuviele informationen und die Sache läuft nicht.
Meine Kenntnisse in VBA sind leider rudimentär. Hat jemand eine Lösung.
Gruß
Matthias