PivotItems Darstellung

Bild

Betrifft: PivotItems Darstellung von: Georg
Geschrieben am: 13.04.2005 13:16:24

Hallo,
ich möchte aus einer Liste eine Pivottabelle erstellen per Markro.
Ausgewertet werden unter anderem die Verantwortlichen.
Da es sich um eine dynamische Tabelle handelt, können sich auch die Verantwortlichen verändern.
Ich möchte nur bestimmte Verantwortliche(es sind 6 von ca. 24 Verantwortlichen) angezeigt bekommen.
Kenne aber nur die Methode, Verantwortliche die nicht angezeigt werden sollen, wie unten dargestellt. Gibts da eine elegantere Lösung.


With ActiveSheet.PivotTables("Pivot").PivotFields("Verantwortlicher")
.PivotItems("Meier").Visible = False
.PivotItems("Mueller").Visible = False
.......
End With

Danke vorab.

Gruß
Christian

Bild


Betrifft: AW: PivotItems Darstellung von: Rolf Beißner
Geschrieben am: 13.04.2005 14:08:08

Hallo Christian,

irgendwo musst du ja mal sagen,
was du nicht sehen willst.

Eine Alternative wäre,
die auszuschließenden in ein Array zu schreiben
aus=Array("Meier",Müller"....)
und den Ausschluss dann in einer Schleife abzuarbeiten.


For i = 1 to .PivotItems.Count
For j = 1 to Ubound(aus)
If .PivotItems(i) = aus(j) Then
.PivotItems(i).Visible = False
End If
Next j
Next i

fG
Rolf




 Bild

Beiträge aus den Excel-Beispielen zum Thema "PivotItems Darstellung"