Fehler beim Ausblenden von PIVOT-Feldern

Hallo zusammen,
ich möchte über ein VBA-Makro Spalten von Datenfelder ausblenden. Hintergrund ist, dass man in einem Menue einstellen kann, ob man Werte absolut oder prozentual angezeigt haben möchte. Ein VBA-Makro blendet dann alle absoluten Felder aus und alle prozentualen ein (oder umgekehrt).
Das funktioniert auch alles prima, nur wenn ich ein eigenes erstelltes sogenanntes 'berechnetes Feld' ausblenden möchte, erhalte ich die Fehlermeldung "Die Orientation-Eigenschaft des PivotField-Objektes kann nicht festgelegt werden."
Mit dem Befehl


ActiveSheet.PivotTables("PivotTable1").PivotFields("Summe von Feld1").Orientation = xlHidden

klappt das wie gesagt prima, solange Feld1 ein Feld aus der Datenquelle der Pivot-Tabelle ist. Wenn Feld1 aber zum Beispiel die Summe von zwei Feldern ist, kommt die o.g. Fehlermeldung. Das gleich passiert auch mit dieser Alternative, bei der immer die erste Datenspalte der Pivot-Tabelle ausgeblendet wird:


ActiveSheet.PivotTables("PivotTable1").DataFields(1).Orientation = xlHidden

Hat jemand eine Idee?
Gruß und Danke
Roland

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo zusammen und danke für die Antwort.
Allerdings ist doch nicht verwunderlich, dass der MakroRecorder nur eine von mehreren Lösungen aufnehmen kann. Wie in meinem ersten Post geschrieben funktioniert ja auch die von Yal aufgezeichnete Version nicht bei berechneten Feldern.
Ich habe mal ein ganz stark vereinfachtes Beispiel hier hochgeladen:


https://www.herber.de/bbs/user/148559.xlsm

Wenn man auf das Kontrollkästchen Feld1 in der nähe von A9 klickt, kann man das entsprechende Feld der Pivot-Tabelle ein- und ausblenden.
Genauso kann man es mit dem Kontrollkästchen für Feld2 machen.
Beim dritten Kontrollkästchen "berechneten Feld" funktioniert nur noch das Einblenden aber das Ausblenden führt zu einem Fehler.
Natürlich kann man das auch direkt über die Feldliste machen, allerdings sieht mein Problem so aus, dass eine Vielzahl von Feldern ein- und ausgeblendet werden sollen und deshalb soll dies eine Vereinfachung für die Kollegen sein.
Hat jemand eine Idee, wieso dies bei dem Feld "berechnetes Feld" nicht funktioniert?
Gruß und Danke
Roland

Sub Daten_Ausblenden(ByVal Element As String) Dim pf As PivotField Dim pi As PivotItem Range("E1").Select For Each pf In ActiveSheet.PivotTables("PivotTable1").PivotFields If pf.Orientation = xlColumnField Then For Each pi In pf.PivotItems If pi.Name = "Summe von " & Element Then pi.Visible = False End If Next End If Next End Sub

Beliebteste Forumthreads (12 Monate)

Fehler beim Ausblenden von PIVOT-Feldern

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread