habe folgendes Makro und suche nach einer Möglichkeit, dass mir wirklich nur die Diagramme updated, ohne die komplette Seite neu aufzubauen (schwer zu beschreiben). Im Moment habe ich für den Bruchteil einer Sekunde einen weißen Bildschirm, der dann anschließend die aktuelle Seite zeigt. Allerdings will ich ja nur, dass das Makro die gewünschten Änderungen im Diagramm vornimmt und alle anderen Zahlen beibehält. Hoffe, es kann mir jemand helfen?
Private Sub CommandButton2_Click()
ActiveSheet.ChartObjects("Diagramm 144").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = "='Zahlen alt'!R6C89:R6C191"
ActiveChart.SeriesCollection(1).Values = "='Zahlen alt'!R508C89:R508C191"
ActiveChart.SeriesCollection(2).XValues = "='Zahlen alt'!R6C89:R6C191"
ActiveChart.SeriesCollection(2).Values = "='Zahlen alt'!R509C89:R509C191"
ActiveChart.SeriesCollection(3).XValues = "='Zahlen alt'!R6C89:R6C191"
ActiveChart.SeriesCollection(3).Values = "='Zahlen alt'!R510C89:R510C191"
ActiveWindow.Visible = False
ActiveSheet.ChartObjects("Diagramm 145").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = "=Valuation!R94C30:R103C30"
ActiveChart.SeriesCollection(1).Values = "=Valuation!R94C58:R102C58"
ActiveChart.SeriesCollection(2).XValues = "=Valuation!R94C30:R103C30"
ActiveChart.SeriesCollection(2).Values = _
"=(Valuation!R94C44:R102C44,Valuation!R103C58)"
Windows("18.03.2003.xls").ScrollRow = 235
Windows("18.03.2003.xls").ScrollRow = 220
Windows("18.03.2003.xls").ScrollRow = 186
Windows("18.03.2003.xls").ScrollRow = 145
Windows("18.03.2003.xls").ScrollRow = 102
Windows("18.03.2003.xls").ScrollRow = 62
Windows("18.03.2003.xls").ScrollRow = 26
Windows("18.03.2003.xls").ScrollRow = 1
ActiveWindow.Visible = False
Windows("18.03.2003.xls").Activate
Range("A1").Select
End Sub
Danke und Gruss