Diagramme, Datentabelle sortieren, VBA
12.01.2006 10:30:17
Michael
ich möchte gerne die Einträge der Datentabelle eines Diagramms sortieren, da man in den Dialogen zur Datentabelle keinen Einfluß darauf hat.
Folgendes habe ich ausprobiert:
Sub Datenquellen_Sortieren()
Dim mySeries(8) As Series
For i = 1 To 8
Set mySeries(i) = Charts("abc").SeriesCollection(i)
Debug.Print mySeries(i).Name
Next i
' Stop
Set Charts("abc").SeriesCollection(1) = mySeries(8)
Set Charts("abc").SeriesCollection(2) = mySeries(7)
Set Charts("abc").SeriesCollection(3) = mySeries(6)
Set Charts("abc").SeriesCollection(4) = mySeries(5)
Set Charts("abc").SeriesCollection(5) = mySeries(4)
Set Charts("abc").SeriesCollection(6) = mySeries(3)
Set Charts("abc").SeriesCollection(7) = mySeries(2)
Set Charts("abc").SeriesCollection(8) = mySeries(1)
End Sub
Der Code bis zum Kommentar "Stop" funktioniert wunderbar. Danach bekomme ich den Fehler 13, "Typen unverträglich".
Weiß jemand Rat?
Viele Grüße
Michael Funk
--
Herr, schenk mir Geduld ... Sofort!