habe mal wieder ein Problem und hoffe ihr koennt mir weiterhelfen.
Folgender Code soll eine Pivot Tabelle aktualisieren und anschliessend bestimmte Werte anzeigen.
ActiveSheet.PivotTables("DayDamage").PivotCache.Refresh
ActiveSheet.PivotTables("DayDamage").PivotFields("Week").CurrentPage = "(All)"
With ActiveSheet.PivotTables("DayDamage").PivotFields("Week")
.PivotItems(woche).Visible = True
For i = 1 To woche - 1
.PivotItems(i).Visible = False
Next
End With
Erst soll die aktuelle Woche gesetzt werden und anschliessend alle anderen Wochen rausgefiltert.Der Code laeuft auch durch ohne zu murren allerdings bleibt immer woche 16 stehen.
Kann mir jemand sagen woran das liegt? Selbst mit .PivotItems(16).Visible = False bekomme ich es nicht ausgeblendet obwohl eine andere Woche auch ausgewaehlt ist.
Wuerde mich ueber Antwort freuen.
Beste Gruesse
Abu