AW: Spaltenindex
11.07.2007 10:54:01
srix
Also ich hab eine Datei mit einer großem Datenblatt und vielen Diagrammen.
(In einem dieser Diagramme sind z.B. mehr als 100 Kurven.)
Je nach Anzahl der Messwerte ändert sich der im Diagramm darzustellende Datenbereich, d.h. die Datenquelle.
Aus Speicherplatzgründen möchte ich nicht immer den maximal möglichen Datenbereich im Tabellenblatt für die Kurven als Datenquelle auswählen.
Deshalb möchte ich die Diagramme so anpassen, dass immer nur auf den tatsächlich mit Daten gefüllten Bereich in meinem Datenblatt zurückgegriffen wird.
Für einen zusammenhängenden Bereich habe ich das Problem gelöst.
Sub Test_Makro()
'Automatische Anpassen eines Diagrammes
Dim i, Anzahl As Integer
Dim Spalte, letze_Zeile As Long
letzte_Zeile = Sheets("Data").Range("a9:a65536").Find("").Row - 1 'Findet letzte Zeile der _
Datenreihe
Anzahl = ActiveChart.SeriesCollection.Count 'Bestimmt Anzahl an Kurven _
im Diagramm
i = 1
While i
Nur liegen die y-Werte einiger Kurven eben nicht alle nebeneinander. So muss ich für jede Kurve erst feststellen, auf welche Spalte sie sich bezieht.
D.h. bevor ich mittels ActiveChart.SeriesCollection(i).Values den darzustelenden Bereich festlegen kann, brauch ich den jeweiligen Spaltenindex meiner Kurve i im Diagramm.