Hallo VBA Freunde,
ich bin heute auf ein Problem gestoßen, welches ich auch nach diversen Recherchen und Versuchen nicht löschen konnte.
Es geht um zwei Einstellungsparameter von PivotTabellen, die ich standardmäßig einsetze und sehr nützlich finde: RowAxisLayout und .TableStyle2. Wenn ich mit großen PivotTabellen arbeite, die ich aus anderen Quellen beziehe, dann möchte ich ein einem Makro meine Standardeinstellungen implementieren, u.a. eben die zwei vorgenannten. Meine Standardeinstellungen werden automatisch überprüft und ggf. implementiert wenn ich eine Pivot öffne. Sobald jedoch eine Pivoteinstellung verändert wird, muß die Pivot hierzu erst einmal die Aktion „Lese Daten“ ausführen. In großen Tabellen kostet dies einen Moment Zeit. Also lasse ich nur die Einstellungen ändern, die noch nicht meinen Vorstellungen entsprechen. Bspw. If .ColumnGrand = False then .ColumnGrand = True.
Bei RowAxisLayout und .TableStyle2 habe ich jedoch keine Möglichkeit gefunden, den Status dieser Parameter eindeutig festzustellen was dazu führt, daß diese Parameter immer gesetzt werden, obwohl z.T. keine Notwendigkeit besteht.
https://www.herber.de/bbs/user/83012.xlsm
Hat jemand von Euch eine Idee über welchen Trick ich eine valide IF Prüfung für diese beiden Parameter erreichen kann?
Ich würde mich freuen, von einem Forumsteilnehmer zu hören und bedanke mich auf alle Fälle schon einmal für die Aufmerksamkeit für diesen Post.
Dank und Gruß, Andreas Hanisch (Berlin)