VBA: Prüfen welches Pivot-Feld aktiv ist
16.05.2017 13:13:04
Gerd
ich verwende folgenden Code, um das Pivot-Feld einer Pivot-Tabelle zu ändern.
Das klappt soweit gut, dauert jedoch aufgrund der Größe meiner Tabelle und Daten relativ lange.
Gibt es hier auch eine Möglichkeit, zu prüfen, ob das benötigte Pivot-Feld schon aktiv bzw. gesetzt ist, so dass ich diesen Teil des Codes dann gar nicht ausführen muss ?
In meinem Fall gibt es nur zwei Möglichkeiten für das Pivot-Feld, es ist entweder auf "DA" gesetzt (benötigte Einstellung) oder auf "DSP" (nur dann sollte dieser Code laufen).
Mein Code:
With Worksheets(4)
.PivotTables("PivotTable9").PivotFields("DSP").Orientation = xlHidden
.PivotTables("PivotTable9").PivotFields("DA").Orientation = xlRowField
.PivotTables("PivotTable9").PivotFields("DA").Position = 1
End With
VG,
Gerd