VBA Pivot.items ausblenden

18/03/2009 - 20:17 von Philipp | Report spam
Hallo Zusammen,

ich würde gerne beim Aufbau einer Pivot Tabelle in VBA nur einzelne
ausgewàhlte PivotItems auswàhlen. Der Makro Editor hat mir eine
Negativabgrenzung vorgeschlagen, die folgendermaßen aussieht:

With ptTable.PivotFields("UP")
.PivotItems("105").Visible = False
.PivotItems("120").Visible = False
.PivotItems("125").Visible = False
etc

Da ich allerdings sehr viele Items habe und diese je nach Datenbasis auch
noch variabel sind, stelle ich mir statt der Negativabgrenzung eine
Positvabgrenzung vor, die folgendermaßen aussehen könnte:

1. alle Pivot Items ausblenden
2. .PivotItems("505").Visible = True
3. .PivotItems("605").Visible = True

Ist so etwas grundsàtzlich möglich und wie würde ein solcher Code aussehen?

Vielen Dank für Eure Hilfe,
Philipp
 

Lesen sie die antworten

#1 Werner Wagner
18/03/2009 - 20:53 | Warnen spam
Nur als spontane Antwort: vielleicht mit einer FOR...EACH-Schleife zunàchste
alle Items ausblenden:

For Each Element ptTable.PivotFields("UP").PivotItems
Element.Visible = False)
Next Element

Werner

"Philipp" schrieb im Newsbeitrag
news:
Hallo Zusammen,

ich würde gerne beim Aufbau einer Pivot Tabelle in VBA nur einzelne
ausgewàhlte PivotItems auswàhlen. Der Makro Editor hat mir eine
Negativabgrenzung vorgeschlagen, die folgendermaßen aussieht:

With ptTable.PivotFields("UP")
.PivotItems("105").Visible = False
.PivotItems("120").Visible = False
.PivotItems("125").Visible = False
etc

Da ich allerdings sehr viele Items habe und diese je nach Datenbasis auch
noch variabel sind, stelle ich mir statt der Negativabgrenzung eine
Positvabgrenzung vor, die folgendermaßen aussehen könnte:

1. alle Pivot Items ausblenden
2. .PivotItems("505").Visible = True
3. .PivotItems("605").Visible = True

Ist so etwas grundsàtzlich möglich und wie würde ein solcher Code
aussehen?

Vielen Dank für Eure Hilfe,
Philipp

Ähnliche fragen