Datenbereich für Diagramm variabel gestalten

Hallo,
ich habe ein Diagramm erstellt und das als Makro aufgezeichnet und nun möchte ich gerne den Bereich für die einzelnen Werte variabel gestalten.
Der Teil für den Datenberich sieht folgendermaßen aus:
Charts.Add
' ActiveChart.ChartType = xlColumnStacked
' ActiveChart.SetSourceData Source:=Sheets("Wochenbericht TKF").Range("L129")
' ActiveChart.SeriesCollection.NewSeries
' ActiveChart.SeriesCollection.NewSeries
' ActiveChart.SeriesCollection.NewSeries
' ActiveChart.SeriesCollection.NewSeries
' ActiveChart.SeriesCollection.NewSeries
' ActiveChart.SeriesCollection.NewSeries
' ActiveChart.SeriesCollection.NewSeries
' ActiveChart.SeriesCollection(1).XValues = "='Wochenbericht TKF'!R58C2:R64C2"
' ActiveChart.SeriesCollection(1).Values = "='Wochenbericht TKF'!R58C3:R64C3"
' ActiveChart.SeriesCollection(1).Name = "='Wochenbericht TKF'!R1C3"
' ActiveChart.SeriesCollection(2).Values = "='Wochenbericht TKF'!R58C4:R64C4"
' ActiveChart.SeriesCollection(2).Name = "='Wochenbericht TKF'!R1C4"
' ActiveChart.SeriesCollection(3).Values = "='Wochenbericht TKF'!R58C5:R64C5"
' ActiveChart.SeriesCollection(3).Name = "='Wochenbericht TKF'!R1C5"
' ActiveChart.SeriesCollection(4).Values = "='Wochenbericht TKF'!R58C6:R64C6"
' ActiveChart.SeriesCollection(4).Name = "='Wochenbericht TKF'!R1C6"
' ActiveChart.SeriesCollection(5).Values = "='Wochenbericht TKF'!R58C7:R64C7"
' ActiveChart.SeriesCollection(5).Name = "='Wochenbericht TKF'!R1C7"
' ActiveChart.SeriesCollection(6).Values = "='Wochenbericht TKF'!R58C8:R64C8"
' ActiveChart.SeriesCollection(6).Name = "='Wochenbericht TKF'!R1C8"
' ActiveChart.SeriesCollection(7).Values = "='Wochenbericht TKF'!R58C9:R64C9"
' ActiveChart.SeriesCollection(7).Name = "='Wochenbericht TKF'!R1C9"
' ActiveChart.Location Where:=xlLocationAsObject, Name:="Wochenbericht TKF"
Kann mir jemand einen Tipp geben?
Gruß
Alex

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Alex,
was meinst Du mit variabel, in diesem Beispiel werden die Daten von Zeile58 bis letzte Zeile angezeigt.
Gruss Beni


Sub TKF_Dia89()
With Sheets("Wochenbericht TKF")
lz = .Cells(65536, 3).End(xlUp).Row
Charts.Add
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Sheets("Wochenbericht TKF").Range("L129")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = Range(.Cells(58, 2), .Cells(lz, 2))
ActiveChart.SeriesCollection(1).Values = Range(.Cells(58, 3), .Cells(lz, 3))
ActiveChart.SeriesCollection(1).Name = .Cells(1, 3)
ActiveChart.SeriesCollection(2).Values = Range(.Cells(58, 4), .Cells(lz, 4))
ActiveChart.SeriesCollection(2).Name = .Cells(1, 4)
ActiveChart.SeriesCollection(3).Values = Range(.Cells(58, 5), .Cells(lz, 5))
ActiveChart.SeriesCollection(3).Name = .Cells(1, 5)
ActiveChart.SeriesCollection(4).Values = Range(.Cells(58, 6), .Cells(lz, 6))
ActiveChart.SeriesCollection(4).Name = .Cells(1, 6)
ActiveChart.SeriesCollection(5).Values = Range(.Cells(58, 7), .Cells(lz, 7))
ActiveChart.SeriesCollection(5).Name = .Cells(1, 7)
ActiveChart.SeriesCollection(6).Values = Range(.Cells(58, 8), .Cells(lz, 8))
ActiveChart.SeriesCollection(6).Name = .Cells(1, 8)
ActiveChart.SeriesCollection(7).Values = Range(.Cells(58, 9), .Cells(lz, 9))
ActiveChart.SeriesCollection(7).Name = .Cells(1, 9)
ActiveChart.Location Where:=xlLocationAsObject, Name:="Wochenbericht TKF"
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Datenbereich für Diagramm variabel gestalten

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread