Pivot VBA Problem
02.11.2005 13:43:08
Oliver
Wenn ich in Pivot Daten-Selektiere(Alles bzw. nur ein Item auswähle), dann formatiert er die Tabelle in Windeseile um. Das ganze wollte ich mit Comboboxen per VBA steuern. Doch jedesmal wenn er ein Item anwählt bzw. abwählt dauert es ganze 5 Sekunden. bei 51 Items wird jede Selektion zur Qual. Gibt es eine Möglichkeit da zu beschleunigen(Berechnung deaktivieren etc)? Anbei der Code.
Vielen Dank im voraus!
Gruß
Oliver
For i = 1 To Sheets("Quelldaten").PivotTables("PivotTable1").PivotFields("LAND").PivotItems.Count
If Sheets("Quelldaten").PivotTables("PivotTable1").PivotFields("LAND").PivotItems(i) ComboBox3.Value Then
Sheets("Quelldaten").PivotTables("PivotTable1").PivotFields("LAND").PivotItems(i).Visible = False
End If
next i