Hallo zusammen,

ich hab ein kleines Problem beim aktualisieren eines Diagramms!

Ein Makro, das beim Eintritt eines Calculate – Ereignisses gestartet wird, kopiert zunächst aus dem aktiven Arbeitsblatt einige Zellen zusammen und sortiert diese Daten dann der Größe nach. Damit endet das Makro. Im Anschluß wird in dem Arbeitsblatt aus den sortierten Daten ein Diagramm erstellt.
Wenn sich nun aber, nach einer Berechnung die Daten des Diagramms ändern, wird dieses nicht aktualisiert. Wird daraufhin die Berechnung erneut durchgeführt, ohne dass sich die Werte ändern, wird auch das Diagramm aktualisiert.

Natürlich möchte ich mir das doppelte berechnen sparen und das aktuelle Diagramm sofort erstellt haben.
Für Eure Hilfe schon mal besten Dank!

Martin

Hier noch der Code des Makros:

Private Sub Worksheet_Calculate()

'Sortierung

Range("B515:P516").Select
Selection.Copy
Range("B520").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("B520"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight