eine Frage: Ich möchte per VBA-Code alle Wertfelder auch die berechneten aus einer Pivottabelle "löschen". Der untenstehende Code schafft das auch, allerdings lässt er immer ein Wertelement in der Pivottabelle stehen. Könnt ihr mir dabei helfen?
Private Sub DatenFelderHerausnehmen()
Dim pi As PivotItem
Dim pf As PivotField
Dim ptBeispielpivot As PivotTable
Set ptBeispielpivot = Sheets("Pivot_combined").PivotTables("PivotTable1")
With ptBeispielpivot
.DataLabelRange.Delete
End With
End Sub
2. Variante ist folgende:
Public Sub tr()
Dim pf As PivotField
For Each pf In ActiveSheet.PivotTables(1).DataFields
pf.Orientation = xlHidden
Next pf
End Sub
Hier ist aber das Problem, dass berechnete Felder stehenbleiben, bzw. nur bis zum ersten berechneten Feld "gelöscht" wird.Vielen Dank für die Mühe!
Grüße
Tobi