Diagramme dynamisch erweitern..

Hallo!
Dank eurer Hilfe (Thorsen, Katrin) ist es mir nun gelungen, meine Charts dynamisch zu erweitern. Aber jetzt hab ich ein weiteres Problem. Bei Anwendung der SetSourceData-Methode verliere ich meine vorher definierte Beschriftung der Rubrikenachse als auch die Namen (die gleichbleiben sollen) meiner einzelnen Datenreihen..
wenn ich mir den Makrorekorder zu Hilfe nehmen, hilft mir das nicht weiter, weil "R" gar nicht vorkommt.
Also R2C11 hat überhaupt nichts mit dem tatsächlichen Bezugsadressen zu tun..
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("K3:L5"), PlotBy _
:=xlRows
ActiveChart.SeriesCollection(1).XValues = "=Tabelle1!R2C11:R2C12"
ActiveChart.SeriesCollection(1).Name = "=Tabelle1!R3C2"
ActiveChart.SeriesCollection(2).XValues = "=Tabelle1!R2C11:R2C12"
ActiveChart.SeriesCollection(2).Name = "=Tabelle1!R4C2"
ActiveChart.SeriesCollection(3).XValues = "=Tabelle1!R2C11:R2C12"
ActiveChart.SeriesCollection(3).Name = "=Tabelle1!R5C2"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo, Karin!
Wenn ich Dich nicht falsch verstanden habe, Karin, hier der Hinweisdarauf, dass auch mit früheren EXCEL-Versionen (hier ab EXCEL 2000) zusammenhängnede Range-Objekte an die Datenreihen zugewiesen werden können. Hier ein Beispiel, wenn die X-Werte in der Spalte A und die Y-Werte ind er Spalte B auf dem Tabellenblatt Tabelle1 angeordnet sind und es sich um ein eingebettestes Diagramm auf dem selben Blatt handelt.


Option Explicit
Sub SetChartData()
Dim cht As Chart
Set cht = Worksheets("Tabelle1").ChartObjects(1).Chart
With cht
.SeriesCollection(1).XValues = Range("A2:A20")
.SeriesCollection(1).Values = Range("B2:B20")
.SeriesCollection(1).Name = Range("B1")
End With
Set cht=Nothing
End Sub
' oder mit Referenznamen (set):
Sub SetChartData()
Dim cht As Chart, rngRName As Range, rngX As Range, rngY As Range
Set cht = Worksheets("Tabelle1").ChartObjects(1).Chart
Set rngX = Range("A2:A20")
Set rngY = Range("B2:B20")
Set rngRName = Range("B1")
With cht
.SeriesCollection(1).XValues = rngX
.SeriesCollection(1).Values = rngY
.SeriesCollection(1).Name = rngRName
End With
Set cht=Nothing
Set rngX=Nothing
Set rngY=Nothing
Set rngRName=Nothing
End Sub

Für die Bildung der Adresse können die bekannten Stringzusammenstzungen herangezogen werden.
Gruß,
Uwe

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

44 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Diagramme dynamisch erweitern..

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

44 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread