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