AW: externe Verknüfungen in Diagrammen
30.09.2008 14:42:09
Beverly
Hi Silvio,
du hast aber die andere Möglichkeit, wie Werte in das Tabellenblatt zu holen und dein Diagramm darauf zu beziehen. Das WIE hängt aber vom Diagrammtyp ab. Für ein Punkt(XY)-Diagramm kannst du das z.B. mit diesem Code machen:
Sub dia_bezuege_umwandeln2()
Dim chDiagramm As Chart
Dim arrXWerte
Dim arrYWerte
Dim inZaehler As Integer
Dim inReihe As Integer
Set chDiagramm = ActiveSheet.ChartObjects(1).Chart
With chDiagramm
arrXWerte = .SeriesCollection(1).XValues
For inZaehler = 1 To UBound(arrXWerte)
Cells(inZaehler, 10) = arrXWerte(inZaehler)
Next inZaehler
For inReihe = 1 To .SeriesCollection.Count
arrYWerte = .SeriesCollection(inReihe).Values
For inZaehler = 1 To UBound(arrYWerte)
Cells(inZaehler, inReihe + 10) = arrYWerte(inZaehler)
Next inZaehler
Next inReihe
.SetSourceData Source:=Range(Cells(1, 10), Cells(UBound(arrXWerte), inReihe + 9))
End With
End Sub
Die Werte werden in den Bereich J1:Lxx eingetragen und der Datenbereich des Diagramms darauf bezogen. Die letzte Spalte ist abhängig von der Datenreihenanzahl (im Beispiel L weil es 2 Datenreihen sind) und xx ist abhängig von der Anzahl der X-Werte.