Ich bestücke eine Pivot Tabelle dynamisch mit Datenfeldern. Das herausnehmen der Datenfelder wird jedoch zum Problem, wenn diese berechnet sind.
Also habe ich eine kleine Schleife gebaut, die das abfängt. Jetzt bleibt die Frage, wie ich diese berechneten Felder ausgeblendet (zurück in die Feldliste, nicht löschen) bekomme ?
Beispiel:
Private Sub DatenFelderHerausnehmen()
Dim pf As PivotField
Dim ptBeispielpivot As PivotTable
Set ptBeispielpivot = Sheets("pivot").PivotTables("Beispielpivot")
With ptBeispielpivot
For Each pf In .DataFields
If .PivotFields(pf.SourceName).IsCalculated Then
' Genau hier ist mein Problem..
Else
pf.Orientation = xlHidden
End If
Next
End With
End Sub
Für Eure Hilfe meinen Herzlichen DANK
Bernd