Diagrammbereich definieren
11.07.2016 11:18:01
Clemens
ich habe gerade ein problem, und zwar, folgender Code funktioniert:
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "test"
ActiveChart.SeriesCollection(1).Values = "=ComparisonTable!$B$11:$K$11"
Jetzt wollte ich aber den Datenbereich der in dem Diagramm dargestellt wird variabel gestalten _
und habe
"=ComparisonTable!$B$11:$K$11"
Sheets("ComparisonTable").Range(Cells(11, 3), Cells(11, 11))
(Die Spalte wird dann noch durch eine Variable ersetzt, ist momentan aber irrelevant)
Der ganze Code sieht jetzt also so aus:
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "test"
ActiveChart.SeriesCollection(1).Values = Sheets("ComparisonTable").Range(Cells(11, 3), _
Cells(11, 11)) '"=ComparisonTable!$B$11:$K$11"
ActiveChart.SeriesCollection(1).XValues = "=ComparisonTable!$B$1:$K$1"
Kann mir vielleicht jemand erklären was ich machen muss, damit das funktioniert?