Guten Morgen,
wenn ich meine Excel öffne (Auch wenn ich es nur wieder maximiere), dauert es extrem lange (mindestens 10 Min., dann habe ich über ESC abgebrochen), bis alle Daten abgerufen sind. In meiner Tabelle sind drei Pivots die auf einer externen Datenquelle basieren. Es muss aber an meinem VBA Code liegen, da ich es schon probiert habe die externe Datenquelle auf ein Tabellenblatt in meiner Datei zu verschieben.
Lasse ich den Code Worksheet_SelectionChange ablaufen, funktioniert alles gut. Nur der Worksheet_Change scheint Probleme zu bereiten.
Muss ich in meinem Code noch was einbauen? Eigentlich sollte sich ja nur was ändern wenn bestimmte Zellen verändert werden. Und die werden beim aktualisieren der Pivot eigentlich nicht verändert...
Da ich jedes Mal, wenn ich etwas probiere wieder so lange warten muss,
wäre ich sehr dankbar wenn mir jemand helfen könnte.
Gruß
Mein Code sieht etwa so aus:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1")) Is Nothing Then GoTo Zeile2
Application.ScreenUpdating = False
If Sheets("Tabelle1").Range("B1").Value = "(Alle)" Then
ActiveSheet.PivotTables("PivotTable1").PivotFields("Projekt"). _
ClearAllFilters
End If
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
Dim pt As PivotTable
Dim Field As PivotField
Dim NewCat As String
Set pt = Worksheets("Tabelle1").PivotTables("PivotTable1")
Set Field = pt.PivotFields("Projekt")
NewCat = Worksheets("Tabelle1").Range("B1").Value
With pt
Field.ClearAllFilters
Field.CurrentPage = NewCat
pt.RefreshTable
End With
If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub
...
und so weiter...