bei Veränderung keine Aktualisierung
08.10.2015 11:30:41
Falco
ich habe folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet.ChartObjects("Chart 1").Chart
Select Case Target.Address
Case Is = [I53].Address
.Axes(xlCategory).MaximumScale = Target.Value
Case Is = [E53].Address
.Axes(xlCategory).MinimumScale = Target.Value
Case Is = [P47].Address
.Axes(xlCategory).MajorUnit = Target.Value
Case Is = [G46].Address
.Axes(xlValue).MaximumScale = Target.Value
Case Is = [G47].Address
.Axes(xlValue).MinimumScale = Target.Value
Case Is = [P46].Address
.Axes(xlValue).MajorUnit = Target.Value
End Select
End With
End Sub
Dieser bewirkt eine Skalierung meines Diagramms. Jedoch verändere ich die Werte in manchen Zellen nicht direkt sondern werden die berechnet.
als Bsp: P46 wird direkt in die Zelle eingetragen und das Diagramm ändert das Intervall. Bei I53 ist der Zellinhalt mit I53=A1+A2 berechnet. Die Zelle rechnet natürlich richtig und aktualisiert sich selbst aber diese Art von Zelländerung bewirkt keine Änderung im Diagramm. Auch nicht wenn im Anschluss eine "direkte" Zelle verändert wird.
Wie kann ich die Aktualisierung in den VBA Code mit integrieren?