Datenreihen per Makro aus Chart löschen
04.05.2007 14:46:00
DirkR
ich bräuchte mal eine kleine Hilfestellung bei einem Makro mit dem ich alle Datenreihen aus einem Chart löschen möchte bis auf die erste Datenreihe. Das Problem ist, ich weiss nicht genau wieviele Datenreihen in dem Chart sind. So würde ich das machen wenn ich die Anzahl der Reihe weiss (In dem Beispiel steht der Wert in Zelle D6):
AnzahlValuesalt = Range("D6").Value
ActiveSheet.ChartObjects("Chart 1").Activate
For i = 0 To AnzahlValuesalt - 1
ActiveChart.SeriesCollection(2).Delete
Next i
Ich würde das jetzt gerne so umbauen, dass es auch funktioniert, ohne dass ich weiss/vorgeben muss wieviele Datenreihen in dem Chart enthalten sind.
Hat da jemand von euch vielleicht eine Idee?
Vielen Dank im voraus.
Dirk