Diagramdaten auf einem aktuellen Blatt ermitteln
30.03.2005 13:40:35
Anja
habe wieder mal ein Problemm...
ich möchte, dass Diagrammdaten automatisch erkannt werden, und irgend wo abgelegt. z.B auf einem Blatt befinden sich 3 Diagrammen.
Es ist mir mit euere Hilfe gelungen alle Namen von Diagrammen auf einem aktuellem Blatt zu erkennen, siehe f. code:
"Dim objDia As ChartObject, i%
i = 1
For Each objDia In ActiveSheet.ChartObjects
ActiveSheet.Cells(i, 1) = objDia.Name
i = i + 1
Next"
Doch ausser dieser Information brauche ich jetzt zusätzlich auch andere
Daten über alle Diagramme...
Z.B nehme ich erste Diagramm... sie hat folgende Daten:
=DATENREIHE('#Transports'!$B$55;'#Transports'!$A$62:$A$67;'#Transports'!$B$62:$B$67;1)
=DATENREIHE('#Transports'!$H$56;'#Transports'!$A$62:$A$67;'#Transports'!$H$62:$H$67;2)
=DATENREIHE('#Transports'!$K$56;'#Transports'!$A$62:$A$67;'#Transports'!$I$62:$I$67;3)
Aus diesen Daten es ist mir wichtig die Spalte der Acksen-Name erkennen, in diesem Fall es ist Spalte 1 (bzw. A) und für jede Datenreihe Spalte, wo Daten stehen, in diesem Fall für Reihe 1: Spalte B (2).
Reihe 2: Spalte H (7), Reihe 3: Spalte I (8).
Alle Daten sollen am besten in einer Tabelle abgelegt werden: z.B.:
Diagram 1:
Diagramm Nummer: 13
SpaltenNr. Rubricachse: 1
SpaltenNr. Datenreihe 1: 2
SpaltenNr. Datenreihe 2: 7
SpaltenNr. Datenreihe 3: 8
Sagt mir bitte ist es irgend wie möglich meinen Wunsch zu realisieren?
Ich danke euch schon jetzt für eure Mühe... :)
Viele Grüße
Anja