Vielen dank für die schnelle Antwort jedoch auch mit dem Code von dir habe ich es leider nicht hinbekommen.
Es ist so die XValues gehören ja zu einem Chart deshalb muste ich auch im Code With CH.SeriesCollection(1) schreiben CH= mein Chart
aber die Daten von der das Diagramm erstellt werden soll ist in einem anderen Tabellenblattund ich habe die andresse zu den Daten also welche Spalte nur in Zahlen weil ich Buchstaben nicht rechnen kann.
ich habe deinen Code so übernommen:
With CH.SeriesCollection(1)
.XValues = Worksheets("REDY DATA").Range(.Cells(3, 1), .Cells(1002, 1))
.Values = Worksheets("REDY DATA").Range(.Cells(3, 3), .Cells(1002, 3))
End With
Aber ich bei dem Code bekomme ich eine Fehlermeldung.
With CH.SeriesCollection(1)
.XValues = Worksheets("REDY DATA").Range("A3:A1002")
.Values = Worksheets("REDY DATA").Range("C3:C1002")
End With
Der Code Funktioniert jedoch benötige ich es die Spalten per Zahlen anzugeben.
Vielen Dank
euer Kevin
|