Range einzelne Zelle zuweisen
16.09.2016 12:57:03
Jonathan
ich hoffe ihr könnt mir weiterhelfen. Ich sitze an folgendem Problem:
Set xValueInflecP_1 = Range(Cells(270, intCounter - 5), Cells(270, intCounter - 5)) '
Set xValueInflecP_2 = Range(Cells(280, intCounter - 5), Cells(280, intCounter - 5))
Set yValueInflecP_1 = Range(Cells(271, 1), Cells(271, 1))
Set yValueInflecP_2 = Range(Cells(280, intCounter - 4), Cells(280, intCounter - 4))
Set xValues_all = Union(xValueInflecP_1, xValueInflecP_2)
ActiveChart.SeriesCollection.NewSeries
With ActiveChart.FullSeriesCollection(intPlotCount + 1)
.AxisGroup = xlSecondary
.xValues = Tabelle6.Range(xValueInflecP_1, xValueInflecP_2) 'Werte der X-Achse
.Values = Tabelle6.Range(yValueInflecP_1, yValueInflecP_2) 'Werte der Y-Achse
End With
Ich scheitere leider daran, einzelne Werte dem Rangebereich auf der x-Achse und y-Achse zuzuweisen. Entweder entsteht ein Fehler, oder es wird der Bereich xValueInflecP_1 BIS xValueInflecP_2 ausgewählt.
Ich würde mich riesig über eure Hilfe freuen.
Vielen Dank im Voraus.
Grüße,
Jonathan
Anzeige