Hallo.
ich nutze eine große (14mb) Datenquelle, die über eine PIVOT ausgewertet wird. Diese hat 4 Filter - um die Datei benutzereinfach zu halten gibt es einen Resetknopf, der mit diesem Script verknüpft ist:
Sub reset_pivot()
ActiveSheet.PivotTables("AusgabePivot").PivotFields("GROUP_NAME"). _
ClearAllFilters
ActiveSheet.PivotTables("AusgabePivot").PivotFields("GROUP_NAME"). _
EnableMultiplePageItems = False
ActiveSheet.PivotTables("AusgabePivot").PivotFields("GROUP_NAME").CurrentPage _
= "(All)"
ActiveSheet.PivotTables("AusgabePivot").PivotFields("BLOCK_CODE"). _
ClearAllFilters
ActiveSheet.PivotTables("AusgabePivot").PivotFields("BLOCK_CODE"). _
EnableMultiplePageItems = False
ActiveSheet.PivotTables("AusgabePivot").PivotFields("BLOCK_CODE").CurrentPage _
= "(All)"
ActiveSheet.PivotTables("AusgabePivot").PivotFields("Anreisefilter"). _
ClearAllFilters
ActiveSheet.PivotTables("AusgabePivot").PivotFields("Anreisefilter"). _
EnableMultiplePageItems = False
ActiveSheet.PivotTables("AusgabePivot").PivotFields("Anreisefilter"). _
CurrentPage = "(All)"
ActiveSheet.PivotTables("AusgabePivot").PivotFields("Abreisefilter"). _
ClearAllFilters
ActiveSheet.PivotTables("AusgabePivot").PivotFields("Abreisefilter"). _
EnableMultiplePageItems = False
ActiveSheet.PivotTables("AusgabePivot").PivotFields("Abreisefilter"). _
CurrentPage = "(All)"
Range("A1").Select
ActiveSheet.PageSetup.PrintArea = "$JE$1:$JJ$12"
ActiveWindow.Zoom = 100
End Sub
Das funktioniert auch ist aber sehr langsam.
Gibt es da etwas um das alles zu beschleiningen?
Danke für Eure Hilfe!
lg Tom
|