Hallo,
ich erstelle ein Diagramm per Makro. Hierbei muss ich die Zeilen und Spalten tauschen. Hier liegt mein Problem. Wenn die Datenbereiche nebeneinander liegen dann funktioniert der Tausch, wenn nicht dann nicht.
Beispiel das funktioniert:
sChart_X = "A268:A271"
sChart_Y = "B268:C271"
Set oChart = ActiveSheet.ChartObjects.Add(Range("A279").Left, Range("A279").Top, 400, 250)
With oChart
.Chart.ChartType = xlLine
.Chart.SetSourceData Source:=Range(sChart_X & "," & sChart_Y)
.Chart.PlotBy = xlColumns
End With
Beispiel mit Laufzeitfehler (Methode PlotBy ... fehlgeschlagen; -2147467259)
sChart_X = "A268:A271"
sChart_Y = "C268:D271"
Set oChart = ActiveSheet.ChartObjects.Add(Range("A279").Left, Range("A279").Top, 400, 250)
With oChart
.Chart.ChartType = xlLine
.Chart.SetSourceData Source:=Range(sChart_X & "," & sChart_Y)
.Chart.PlotBy = xlColumns 'hier entsteht der Fehler
End With
Auch die Variante
.Chart.SetSourceData Source:=Union(Range(sChart_X), Range(sChart_Y))
bring den gleichen Fehler.
Wenn ich die Zeilen/Spalten über die GUI tausche funktioniert das in allen Varianten problemlos. Im Moment bin ich ratlos. Hat jemand eine Idee was ich noch probieren könnte? Die Daten an eine andere Stelle zu übertragen, wo keine "Löcher" im Bereich sind wäre dann mein Notlösung, die ich aber gerne vermeiden würde.
Danke für eure Hilfe.
Gruß Joni