nach langer Abwesenheitszeit habe ich mal wieder eine Frage:
Ich erstelle mit Hilfe eines Codes einen String den ich hinterher als Argument für den Befehl Union nutzen möchte um damit wiederum einen Datenbereich für die X- und Y-Achse eines Diagramms zu definieren.
Hier der Code um den String zu erzeugen (kann man sicher auch noch vereinfachen)
For k = 1 To anz_monate
teil = 4 * k - 1
Text = "Range(Cells(" & i & "," & teil + h & "), Cells(" & i & "," & teil + h & "))"
arr(k) = Text
Next k
For k = 1 To anz_monate
string_mitte_neu = arr(k)
If k > 1 Then
string_mitte_alt = string_mitte_alt & "," & string_mitte_neu
Else
string_mitte_alt = string_mitte_neu
End If
Next k
Anschließend würde ich gerne diesen String wie folgt verwenden:
Set umfang_daten_soll = Union(string_komplett)
ActiveChart.FullSeriesCollection(2).Values = umfang_daten_soll
Leider kommt jedoch die Fehlermeldung, dass beim Union Befehl, dass das Argument nicht optional ist.
Kann mir bitte jemand weiterhelfen?
Vielen Dank schon mal im Voraus.
Gruß
Hannes