Range zusammensetzen (Vba)

[Maumi]

Hallo Ng,

Ich habe von zwei Spalten jeweils die Anfangszeile, die Endzeile und
natürlich die Spalte in Zahlenform vorliegen.

Also zum Beispiel

Spalte = 3
Startzeile = 1
EndZeile = 100

und

Spalte = 4
Startzeile = 101
EndZeile = 200


Diese Werte möchte ich jetzt als Range an ein Chart übergeben.

ActiveChart.SetSourceData
Source:=Sheets("Tabelle1").Range("C1:C10,D101:D200"),
_PlotBy:=xlColumns

Leider weiß ich nicht wie ich den Range passend zusammensetzen muß.

Vielen Dank für Eure Hilfe

Christian

[Melanie Breden]

Hallo Christian,

Post by Maumi
Ich habe von zwei Spalten jeweils die Anfangszeile, die Endzeile und
natürlich die Spalte in Zahlenform vorliegen.
Diese Werte möchte ich jetzt als Range an ein Chart übergeben.
ActiveChart.SetSourceData
Source:=Sheets("Tabelle1").Range("C1:C10,D101:D200"),
_PlotBy:=xlColumns
Leider weiß ich nicht wie ich den Range passend zusammensetzen muß.

vielleicht hilft dir Folgendes in ausführlicher Form.
Allerdings darf bei Zuweisung des Range-Objektes das Diagramm nicht aktiviert sein:

Sub RangeZusammensetzen()
' Diagramm darf nicht aktiviert sein
Dim intCol1 As Integer
Dim lngStartRow1 As Long
Dim lngEndRow1 As Long

Dim intCol2 As Integer
Dim lngStartRow2 As Long
Dim lngEndRow2 As Long

Dim rng1 As Range
Dim rng2 As Range

intCol1 = 3
lngStartRow1 = 1
lngEndRow1 = 100
intCol2 = 4
lngStartRow2 = 101
lngEndRow2 = 200

Set rng1 = Range(Cells(lngStartRow1, intCol1), Cells(lngEndRow1, intCol1))
Set rng2 = Range(Cells(lngStartRow2, intCol2), Cells(lngEndRow2, intCol2))

ActiveSheet.ChartObjects(1).Chart.SetSourceData _
Source:=ActiveSheet.Range(Application.Union(rng1, rng2).Address), _
PlotBy:=xlColumns
End Sub

[Maumi]

Post by Melanie Breden
vielleicht hilft dir Folgendes in ausführlicher Form.

Vielen Dank, genau das was ich gesucht habe...

Gruß

Christian

[Melanie Breden]

Hallo Christian,

Post by Maumi

Post by Melanie Breden
vielleicht hilft dir Folgendes in ausführlicher Form.

Vielen Dank, genau das was ich gesucht habe...

danke für die Rückmeldung, freut mich wenn ich helfen konnte :-)

BTW:
Gebe bitte im Absenderfeld deinen Realnamen an.
Das ist hier zum einen üblich und einfach angenehmer sich mit
"Christian" statt mit "Maumi" zu unterhalten :-)