Problem beim Erstellen eines Diagramms
28.10.2020 10:40:27
freshhermi
Ich habe eine Tabelle die folgendermaßen aussieht:
Spalte A ----- Spalte B ------- ... --- Spalte G
Monat 1 ----- Datenreihe 1 --- ... --- Wert
leere Zelle --- Datenreihe 2 --- ... --- Wert
leere Zelle --- Datenreihe 3 --- ... --- Wert
Monat 2 ----- Datenreihe 1 --- ... --- Wert
leere Zelle --- Datenreihe 2 --- ... --- Wert
leere Zelle --- Datenreihe 3 --- ... --- Wert
Monat 3 ----- Datenreihe 1 --- ... --- Wert
leere Zelle --- Datenreihe 2 --- ... --- Wert
leere Zelle --- Datenreihe 3 --- ... --- Wert
usw. ...
Wobei die Zahl der Datenreihen variiert.
Ich möchte nun ein Diagramm erstellen und dabei die entsprechenden Werte der Spalte G den richtigen Datenreihen zuordnen.
Meine Datenreihen habe ich schon vorher hinzugefügt, das hat funktioniert.
Wenn ich es so versuche:
Dim serData As Range
Dim i As Long
Dim j As Long
With myChart
For i = 1 To .SeriesCollection.Count
Set serData = Nothing
For j = 1 To WorksheetFunction.CountA(Columns(1))
serData = Union(serData, Range(Cells(((j - 1) * .SeriesCollection.Count + 1 + i) _
_
, 7)))
Next
.SeriesCollection(i).Values = serData
Next
End With
Kommt immer die Fehlermeldung Fehler der Methode "Range" des Objekts "_Global".
Problem ist die Stelle:
serData = Union(serData, Range(Cells(((j - 1) * .SeriesCollection.Count + 1 + i), 7)))
Kann mir da jemand weiterhelfen? Was mache ich falsch?