Forums Neueste Beiträge
 

Pivot-Items Auswahl invertieren: PivotItem.Visible=true wird ignoriert

20/11/2008 - 11:40 von Andre | Report spam
Hallo,

ein Pivotfeld enthàlt eine Auswahl an aktiven und ausgeklickten Pivot-
Items. Diese Auswahl möchte ich invertieren. Ich habe jetzt schon
mehrer Lösung ausprobiert, bei mir führt allerding keine zum Ziel.
Z.B. kann ich mit folgendem Code nur die Items ausschalten, aber nicht
mehr anschalten.

Dim pf As PivotField
Dim pi As PivotItem

On Error Resume Next
Set pf = ActiveCell.PivotField
For Each pi In pf.PivotItems
pi.Visible = Not pi.Visible
Next pi
On Error GoTo 0


Kann hier jemand einen Fehler entdecken?

Gruß, Marc.
 

Lesen sie die antworten

#1 thomas.ramel
20/11/2008 - 12:07 | Warnen spam
Grüezi Marc

On 20 Nov., 11:40, Andre wrote:

ein Pivotfeld enthàlt eine Auswahl an aktiven und ausgeklickten Pivot-
Items. Diese Auswahl möchte ich invertieren. Ich habe jetzt schon
mehrer Lösung ausprobiert, bei mir führt allerding keine zum Ziel.
Z.B. kann ich mit folgendem Code nur die Items ausschalten, aber nicht
mehr anschalten.

  Dim pf As PivotField
  Dim pi As PivotItem

  On Error Resume Next
  Set pf = ActiveCell.PivotField
  For Each pi In pf.PivotItems
    pi.Visible = Not pi.Visible
  Next pi
  On Error GoTo 0

Kann hier jemand einen Fehler entdecken?




Wichtig ist, dass immer mindestens *ein* Element angezeigt wird, sonst
làuft ein Code in die Fehler-Routine und arbeitet den Rest nicht ab.
Im Laufe der Zeit minimieren sich so die einzelnen Items

Ev. wàre es sinnvoller eine Hilfsspalte in der Datenquelle
einzuarbieten und dort die einzelnen Items zu kennzeichnen mit 1 und 2
- diese Feld dann in den Seitenbereich der PT und Du hast bequem den
Umschalter, ganz ohne VBA.


Mit freundlichen Grüssen

Thomas Ramel
- MVP für MS-Excel -

Ähnliche fragen