kann mir jemand erklären warum der nachfolgende Code nicht funzt? Ich versuche damit den Datenbereich meines Diagramm variabel zu gestalten und auf Tastendruck den neuen Datenbereich zu aktualisieren. Die Datenreihe wird gefunden und auch markiert. Sie wird jedoch nicht wie im Makro gewünscht überschrieben.
Sub Aktualisieren()
Dim Start%, Ende%
Start = 14
Ende = ActiveSheet.Range("F20").Value
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Formula = _
"=SERIES(Temperaturverlauf,Berechnung!R" & Start & "C4:R" & Ende & "C4,Berechnung!R" & _
Start & "C3:R" & Ende & "C3,1)"
End Sub
Danke schonmal
Karsten