Forums Neueste Beiträge
 

wert in SeriesCollection abfragen

20/12/2010 - 14:16 von Wolfgang Schmid | Report spam
Hallo an Alle,

Ich möchte Werte in einem Chart abfragen.
Wenn ich beispielsweise versuche:

Function test()
Dim i, j, k
Set k = ActiveSheet.SeriesCollection(1)
i = k.Points.Count
j = k.Values(i)
End Function

dann bekomme ich bei j = k.Values(i) "Object erforderlich"
Im Überwachungsfenster werden aber die Werte wie folgt aufgelistet.
k.Values
k.Values(1) 1
k.Values(2) -1
k.Values(3) 2
und so weiter

Kann mir jemand sagen wo der Fehler liegt?
Vielen Dank
Wolfgang
 

Lesen sie die antworten

#1 Andreas Killer
20/12/2010 - 17:02 | Warnen spam
Am 20.12.2010 14:16, schrieb Wolfgang Schmid:

Ich möchte Werte in einem Chart abfragen.
Wenn ich beispielsweise versuche:

Function test()
Dim i, j, k
Set k = ActiveSheet.SeriesCollection(1)



Dann geht das nicht weil die Tabelle keine Datenreihe hat, Du musst schon ein Diagramm nehmen. .-)

Trotzdem kann man nicht direkt auf die einzelnen Werte im Series-Objekt zugreifen, warum... k.A.

Aber man kann alle lesen und sich dann den gewünschten rausgreifen.

Andreas.

Sub Test()
Dim Data, i As Integer
'Y-Achse
Data = ActiveChart.SeriesCollection(1).Values
'X-Achse
'Data = ActiveChart.SeriesCollection(1).XValues
For i = LBound(Data) To UBound(Data)
Debug.Print Data(i)
Next
End Sub

Ähnliche fragen