VBA Excel zum Deaktivieren von Pivotfeldern
06.08.2008 09:12:00
Pivotfeldern
anbei ein hoffentlich kleines Problem für einen VBA Experten
Mein Makro soll ein Pivotfeld deaktivieren. Problem: Das Makro kann anscheinend normale Pivotfelder problemlos deaktivieren (hier das Feld "Summe von abs"), bei berechneten Pivot Feldern (hier "Summe von preis") bleibt das Makro allerdings hängen und kann sie nicht deaktivieren. Wie kann man das Problem beheben?
Pivot Tabelle
Monat; Summe von abs ; Summe von ums ; Summe von preis
1 ; 100 ; 1000 ; 10
2 ; 200 ; 2000 ; 10
Hier die Syntax
Sub Makro1()
' Makro1 Makro
' Makro am 05.08.2008 von aufgezeichnet
ActiveSheet.PivotTables("PivotTable1").PivotFields("Summe von abs"). _
Orientation = xlHidden
ActiveSheet.PivotTables("PivotTable1").PivotFields("Summe von preis"). _
Orientation = xlHidden
End Sub
Vielen Dank schon mal im Voraus und Gruß
wolfram