Flächendiagramm Diagrammdatenbereich per VBA änder
27.06.2013 20:46:56
Edwin
ich habe ein Flächendiagramm erstellt.
Den Diagrammdatenbereich möchte ich hierbei per VBA ändern.
Hierzu habe ich mit dem Makrorecorder folgenden Code bereits aufgenommen.
Sub Makro1()
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.SetSourceData Source:=Range("A1:A11")
End Sub
Ich möchte z.B. die letzte ZeileActiveChart.SetSourceData Source:=Range("A1:A11")
in
ActiveChart.SetSourceData Source:=Range("A1:A10")
per VBA ändern.
Ich würde in die Zelle B1 die Zahl 10 schreiben und VBA übernimmt die 10 und ändert meine letzte Zeile entsprechend.
Kann mir hier jemand beim Code helfen?
LG
Edwin