VBA Daten abrufen bei Worksheet_Change dauert
26.02.2018 11:34:49
Katrin
ich hatte es heute früh schon versucht, bin noch nicht weitergekommen
aber kann mein Problem jetzt noch etwas eingrenzen.
Mit meinem VBA Code braucht Excel ewig beim öffnen und beim aktualisieren meiner
3 Pivots. Habe mal meinen Code komplett entfernt bis auf den unten stehenden
und das Problem ist immernoch da.
Rudi meinte bereits, dass
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
gar nicht eintreffen kann. Kann mir das aber nicht erklären, wie ich es sonst
lösen sollte, dass der Code beim ändern von B1 ausgeführt wird.
Danke schonmal !
Gruß
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
ActiveSheet.ChartObjects("Diagramm 6").Activate
ActiveChart.ChartArea.Select
ActiveSheet.PivotTables("PivotTable4").PivotFields("KW").ClearAllFilters
ActiveSheet.PivotTables("PivotTable4").PivotFields("KW").PivotFilters.Add Type _
:=xlCaptionIsGreaterThan, Value1:=Worksheets("Tabelle1").Range("B1")
End Sub
Anzeige