Worksheet_Change(ByVal Target As Range) in Dauerschleife
23.10.2024 14:21:39
Dustin1986
nach vielem hin und her finde ich keine Lösung auf mein Problem.
Ich habe ein ganz kleines Makro einem speziellen Tabellenblatt zugeordnet, welches analysiert ob es in vier Zellen eine Änderung gegeben hat.
Wenn es eine Änderung gegeben hat soll die Pivot in dem Tabellenblatt aktualisiert werden.
Die Prozedur verfängt sich aber in einer Dauerschleife und die Pivot wird immer und immer wieder aktualisiert:
Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C1:C4")) Is Nothing Then
DoEvents
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
End If
End Sub
Ich komme nicht auf des Rätsels Lösung das Problem zu beheben und würde mich über hilfreichen Input freuen.
Lieben Dank und viele Grüße
Dustin
Anzeige