Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "PivotItems Darstellung"
Ein UserForm-Label in einer 3D-Darstellung anzeigen Darstellung von Minuszeiten ohne Umstellung der 1904-Datumswerte
Darstellung der verschiedenen Erscheinungsformen von LixtBoxes Darstellung der unterschiedlichen Auslesemethoden von ComboBoxes
Zeitdarstellung als Zeitstrahl Negative Zeitdarstellung ohne Umstellung der 1904-Datumswerte