Felder und Arrays für Seriescollection
07.10.2004 12:00:17
Stephan
ich hatte heute schon mal einen Eintrag gemacht, der aber noch keine Antwort erhalten hat. (Datenbereich eines Diagrammes aus Array auslesen)
Inzwischen habe ich selber ein bischen weitergeforscht und habe den Fehler meiner Meinung nach etwas eingegrenzt. Da er jetzt zu einem anderen Thema gehört habe ich einen neuen Thread aufgemacht.
Also, es existiert anscheinend ein unterschied zwischen einem Feld und einem Datenfeld. Und Einer Seriescollection, kann man nur ein Datenfeld zuweisen. Jedoch bin ich da sehr ratlos, wie ich nun ein Feld in ein Datenfeld umwandeln kann. Ich habe ein Testmakro geschrieben mit dem Ich herumexperimentiere. s.u. und meine Ergebnisse sind mir Schleierhaft.
1.
Sub Diagramm()
Dim Daten As Variant
Dim Ar() As Integer
Dim i As Integer
For i = 1 To 101
ReDim Preserve Ar(i - 1)
Ar(i - 1) = Round(Rnd() * 10)
Next
Daten = Ar
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Values = Daten
End Sub
Mit diesem Programm funktioniert das ganze, jedoch sind die Werte des Diagramms nicht alle ganzzahlig und im zweiten Versuch lasse ich die Round- Funktion weg.
2.
Sub Diagramm()
Dim Daten As Variant
Dim Ar() As double
Dim i As Integer
For i = 1 To 101
ReDim Preserve Ar(i - 1)
Ar(i - 1) = Rnd() * 10
Next
Daten = Ar
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Values = Daten
End Sub
Jetzt funktioniert das ganze nicht mehr, dachte ich mir o.k. vielleicht kann bei manueller eingabe in ein Array keine reellen Zahlen benutzt werden und versuchte es so
3.
Sub Diagramm()
Dim Daten As Variant
Dim i As Integer
Daten = Array(1.342323,2.2342345,2,4,5,3,1.23432)
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Values = Daten
End Sub
Aber so funktioniert es auch
Hat jemand einen Rat für mich der mich weiterbringt?
Vielen Dank
Stephan