Diagrammbereich um 1 täglich verschieben
15.02.2017 11:27:02
r
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).XValues = "='ex'!$C$2324:$C$2356"
ActiveChart.SeriesCollection(1).Values = "='ex'!$E$2324:$E$2356"
ActiveChart.SeriesCollection(2).Values = "='ex'!$F$2324:$F$2356"
also das es am nächsten Tag so aussieht:
ActiveChart.SeriesCollection(1).XValues = "='ex'!$C$2325:$C$2357"
ActiveChart.SeriesCollection(1).Values = "='ex'!$E$2325:$E$2357"
ActiveChart.SeriesCollection(2).Values = "='ex'!$F$2325:$F$2357"
Meine Lösung war eine Zelle mit einem fixen Datum zu nehmen diese dann -heute() und den Wert in eine Variable zu packen z.B. i = cells(1,1).Value und die auf den Bereich zu addieren:
ActiveChart.SeriesCollection(1).XValues = "='ex'!$C$2324 + i :$C$2356 + i"
ActiveChart.SeriesCollection(1).Values = "='ex'!$E$2324 + i:$E$2356 + i"
ActiveChart.SeriesCollection(2).Values = "='ex'!$F$2324 + i:$F$2356 + i"
Leider funktioniert es nicht. Über Hilfsvorschläge bin ich dankbar.