Union(r1,r2) funzt nicht
Christoph
aus Access heraus erstelle ich eine Arbeitsmappe, in welcher ca. 100 Charts auf Basis der in die Mappe kopierten Bereiche erstellt werden sollen.
Nun können für eine Grafik die Spalten A,B,D in Frage kommen. C wird ausgelassen.
Chart.SetSourceDate benötigt einen Bereich als Argument. Daher möchte ich ein Range-Objekt via Union in der Schleife füllen.
Hier kommt der Code.
Union bricht ab mit Fehler 1004? = 'Union' für das Objekt _Global fehlgeschlagen'. Verstehe ich nicht :-(
strTMP hat jeweils etwa den Inhalt: "A4:A6"
Das erste rngChart ist für der Bereich die Befüllung der Kategoriewerte. Die Wertspalten kommen dann in der Schleife dazu.
Wichtig: Sowohl rngChart als auch rngTMP sind gültige Range-Objekte. Das habe ich bereits geprüft. Nur das Union dieser zwei funktioniert nicht.
Danke
Christoph
'******************************Loop durch Spalten**********************************************************************************
strSheet = "Diagramme" 'CStr(.Fields("Blatt"))
strTMP = GetChartDataSourceString(.Fields("Zeile"), 1, intGemeinden)
Set rngChart = xlWb.Sheets(strSheet).Range(strTMP)
Do Until rsSpaltenAW.EOF
If rsSpaltenAW.Fields("dsZeigen") = "Wahr" Then
strTMP = GetChartDataSourceString(.Fields("Zeile"), rsSpaltenAW.Fields("Spalte"), intGemeinden)
Set rngTmp = xlWb.Sheets(strSheet).Range(strTMP)
Set rngChart = Union(rngChart, rngTmp)
End If
rsSpaltenAW.MoveNext
Loop
rsSpaltenAW.Close
'******************************Charteigenschaften zuweisen*************************************************************************
objChart.Chart.SetSourceData Source:=rngChart, PlotBy:=xlColumns
objChart.Chart.HasTitle = True
objChart.Chart.ChartTitle.Characters.Text = .Fields("DiagrammTitel")