|
Liebe VBAler
ich hoffe mir kann da jemand weiterhelfen? Ich erzeuge ein Diagramm im VBA nach:
Private Sub chtline_Click()
Dim lngLastRow1 As Long
lngLastRow1 = Cells(Rows.Count, "B").End(xlUp).Row
Dim lngLastRow2 As Long
lngLastRow2 = Cells(Rows.Count, "D").End(xlUp).Row
Dim chtChart As Chart
ActiveSheet.ChartObjects.Add Left:=60, Top:=90, Width:=400, Height:=225
Set chtChart = ActiveSheet.ChartObjects(1).Chart
chtChart.ChartType = xlXYScatterLinesNoMarkers
chtChart.SetSourceData Source:=ActiveSheet.Range(("B9:B" & lngLastRow1), ("D9:D" & lngLastRow2))
SetchtChart = Noting
End Sub
Leider wird der ganze Bereich: die Spalten von B (- bis zum jeweiligen Ende) und alle Spalten bis D (-zum jeweiligen Ende) selektiert und im Diagramm ausggeben (also mit Spalte C) und nicht wie erhofft einzeln, nur Spalte B (- bis zum jeweiligen Ende) und nur Spalte D (- bis zum jeweiligen Ende).
Die einfache variante Range ("B9:B2000, D9:D2000") funktioniert super ist aber nicht so schick.
Vielen Dank,
Jens
|