ich stehe aktuell vor einer Herrausforderung in einem VBA Projekt. Ich habe eine Excel-Mappe, welche Filter automatisch setzten soll. Es wird die aktuell ausgewählte Person ermittelt und in eine Variable "AM_Old" gespeichert. Die neue Person wird in "AM_New" gespeichert. Mein Code sieht wie folgt aus :
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
On Error Resume Next
With pt.PivotFields("Besitzer")
.PivotItems(AM_New).Visible = True
.PivotItems(AM_Old).Visible = False
End With
.
.
.
Damit immer ein Objekt ausgewählt ist wird zunächst AM_New auf "Visible" gesetzt, danach "AM_Old" auf "False" gesetzt.
Mein Problem : Diese Funktion klappt zunächst reibungslos, jedoch kommt es zu Problemen in vereinzelten Tabellen. In dieses werden die Werte nicht richtig gesetzt, das ab- oder anwählen funktioniert leider nicht robust.
Konnte bereits jemand in diesem Bereich Erfahrung sammeln und hat einen passenden Tipp für mich ?
Vielen Dank und liebe Grüße
Moritz