Set rng = wsÜbersicht.Range(strSpalte & "5:" & strSpalte & ZeileÜbersichtUsertabMax - 1)
srng = "=SUBTOTAL(109," & CStr(rng.Address) & ")"
wsÜbersicht.Cells(ZeileÜbersichtUsertabMax, SpalteÜbersichtUsertab).Formula = srng
Auf diese Weise muss nichts überwacht werden, die Formel steht (automatisch übersetzt nach "TEILERGEBNIS") statt des Ergebnisses in der Zelle (das hatte ich ursprünglich in VBA errechnet) und sobald irgendeine Veränderung vorgenommen wird, wirkt sich das sofort auf die Ergebnisse und das Diagramm aus, das darauf basiert.
Ich hatte schlicht die .Formula-Funktion vergessen.
Danke für den Wald und die Bäume!
Jörg