wundere mich, dass ich trotz des o.g. Befehls einen kurzeitigen Bildwechsel bzw. Screen-Update habe. Mein komplettes Makro sieht folgendermaßen aus:
Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
ActiveSheet.ChartObjects("Diagramm 144").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = "=Company!R6C89:R6C191"
ActiveChart.SeriesCollection(1).Values = "=Company!R509C89:R509C191"
ActiveChart.SeriesCollection(2).XValues = "=Company!R6C89:R6C191"
ActiveChart.SeriesCollection(2).Values = "=Company!R510C89:R510C191"
ActiveChart.SeriesCollection(3).XValues = "=Company!R6C89:R6C191"
ActiveChart.SeriesCollection(3).Values = "=Company!R511C89:R511C191"
ActiveSheet.ChartObjects("Diagramm 145").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = "=Valuation!R264C30:R273C30"
ActiveChart.SeriesCollection(1).Values = "=Valuation!R264C58:R272C58"
ActiveChart.SeriesCollection(2).XValues = "=Valuation!R264C30:R273C30"
ActiveChart.SeriesCollection(2).Values = _
"=(Valuation!R264C44:R272C44,Valuation!R273C58)"
Windows("Update.xls").Activate
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Finde den Fehler aber nicht! Hat jemand eine Idee?
Danke und Gruß
Martin