Diagramm Werte und Achsen dynamisch verändern
28.01.2009 11:12:40
Niko
ich bin ziemlich am verzweifeln, da ich nun schon seit Stunden an einem Problem sitze und auch das Internet bereits abgesucht habe, aber leider ohne Erfolg. Deshalb wende ich mich an Euch und hoffe ihr könnt helfen:
Und zwar habe ich in einer Mappe 10 Diagramme angelegt, die ich nun dynamisch anpassen möchte.
Die Anzahl der Datenpunkte im Diagramm sowie die Skalierung können unterschiedlich sein, deshalb ist die Anpassung nötig.
Hier ein Auszug aus meinem VBA-Code, mit welchem ich versucht habe, die Diagramme automatisch anzupassen:
For i = 1 To 10
Name = "Diagramm" & i
ActiveSheet.ChartObjects(Name).Activate
ActiveChart.SeriesCollection(1).XValues = "='Dateneingabe'!R15C3:R15C" & n & ""
ActiveChart.SeriesCollection(1).Values = "='Dateneingabe'!R58C3:R58C" & n & ""
ActiveChart.SeriesCollection(2).XValues = "='Dateneingabe'!R15C3:R15C" & n & ""
ActiveChart.SeriesCollection(2).Values = "='Dateneingabe'!R59C3:R59C" & n & ""
Next i
Die Variable n ist eine ganzahlige Zahl, die das Ende der Datenreihe des jeweiligen Diagramms angibt. Jetzt das Seltsame: Für die Diagramme 1 - 6 funktioniert das Makro wunderbar, beim 7. Diagramm streikt es mit folgender Fehlermeldung
Laufzeitfehler '1004': Die X-Values Eigenschaft des Series-Objektes kann nicht festgelegt werden.
Die Diagrammnamen sind alle richtig gewählt. Ich habe auch schon versucht, das 6. zu kopieren und dann einfach in Diagramm 7 umzubennen. Aber ohne Erfolg.
Gibt es noch eine andere Möglichkeit, das zu programmieren? Oder kennt jemand die Ursache?
Bin für jede Hilfe sehr dankbar.
Gruß
Niko