Excel 2000 alle graphen in einem Diagramm löschen

Computer: Software & Programmierung Visual Basic
#1

Hi,

gibt es einen Befehl, der alle Graphen in einem Diagramm löscht?
(wie man neue anlegt ist mir bekannt)

Ich kann den Graphen leider nicht einfach immer die neuen Zellbereiche zuweisen, da sich auch die Anzahl der Graphen ändert und ich noch nicht dahinter gekommen bin, wie Excel Graphen nummeriert, wenn ich zwischendrin einen lösche.

hab mir mal diesen Code überlegt, aber manchmal passiert es, das nicht alle Graphen gelöscht werden. (und ich hab sicher max 10 Graphen auf einmal gehabt)

Sub alle_graphen_löschen()
Dim x, s As Integer
On Error Resume Next
Sheets(1).Select
ActiveSheet.ChartObjects(„Diagramm 9“).Activate
ActiveChart.PlotArea.Select
x = 30
While ActiveChart.SeriesCollection.Count > 0 And x > 0
ActiveChart.SeriesCollection(x).Delete
x = x - 1
Wend
End Sub

wenn ich alle Diagramm löschen wollte würde mir
ActiveSheet.ChartObjects.Delete
reichen, aber dann gehen mir auch alle einstellungen des diagramms verloren!
Suche also sozusagen das Equivalent das alle Graphen in einem Diagramm löscht
ActiveChart.SeriesCollection.Delete
funktioniert leider nicht (auch wenn es keinen Fehler gibt!)

Vielen Dank für eure Hilfe!

#2

gibt es einen Befehl, der alle Graphen in einem Diagramm
löscht?

Hi Zondan,

probiers mal so:

Sub Makro1()
With ActiveSheet.ChartObjects("Diagramm 1").Chart
 While .SeriesCollection.Count
 .SeriesCollection(1).Delete
 Wend
End With
End Sub

Gruß
Reinhard

#3

Danke,
sobald der Fehler erneut auftritt, werde ich es testen!

#4

so, der Fehler ist wieder aufgetreten, aber auch der neue code hat nicht geholfen, er war eigentlich sogar schlechter, da er eine Fehlermeldung gebracht hat.

Hab jetzt von einem Trick gehört, daß man die Datensätze, die nicht angezeigt werden sollen ausblendet und unter Extras->Optionen->Diagramm „Nur sichtbare Zellen zeichnen“ einen Harken setzt.
Wer das morgen mal ausprobieren.

#5

Hi Zondan,

so, der Fehler ist wieder aufgetreten, aber auch der neue code
hat nicht geholfen, er war eigentlich sogar schlechter, da er
eine Fehlermeldung gebracht hat.

warum ist das schlechter?
Mit dem Wissen welche Fehlermeldung in welcher Zeile kommt kann amn ggfs. etwas anfangen…
Bei mir kam kein Fehler, der Code hat funktioniert.

Hab jetzt von einem Trick gehört, daß man die Datensätze, die
nicht angezeigt werden sollen ausblendet und unter
Extras->Optionen->Diagramm „Nur sichtbare Zellen
zeichnen“ einen Harken setzt.

Das stimmt.

Gruß
Reinhard

#6

Hi,
also, wenn ich mein Programm öfters durchlaufen lasse, bekomme ich den Fehler: " Laufzeitfehler ‚1004‘: Die Delete-Methode des Series-Objektes konnte nicht ausgeführt werden. "
und er bleibt in : ActiveSheet.ChartObjects(„Diagramm 9“).Chart.SeriesCollection(1).Delete stehen.

Das komische ist, die Graphen sind nicht mehr sichtbar, aber in der Legende stehen sie noch und unter Datenquellen stehen sie auch noch mit den richtigen Datenquellen drin!

wenn ich aber über Makro-aufzeichnen den Befehl mitschreiben lasse, dann bekomme ich wieder …SeriesCollection(1).Delete

naja, bin heut nicht dazu gekommen, aber morgen schreib ich´s dann mit ausblenden und lass die Graphen einfach drin!

Danke für die Hilfe!

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#7

hallo Zondan,

also, wenn ich mein Programm öfters durchlaufen lasse, bekomme
ich den Fehler: " Laufzeitfehler ‚1004‘: Die Delete-Methode
des Series-Objektes konnte nicht ausgeführt werden. "
und er bleibt in : ActiveSheet.ChartObjects(„Diagramm
9“).Chart.SeriesCollection(1).Delete stehen.

da ich es testete mutmaße ich nach dem ersten Durchlauf gibt es keine Datenreihe 1 mehr, deshalb der Fehler.

Das komische ist, die Graphen sind nicht mehr sichtbar, aber
in der Legende stehen sie noch und unter Datenquellen stehen
sie auch noch mit den richtigen Datenquellen drin!

Daß sie nicht mehr sichtbar sind habe ich ja getestet, die Eintragungen nicht, insofern weiß ich grad nix :smile:

wenn ich aber über Makro-aufzeichnen den Befehl mitschreiben
lasse, dann bekomme ich wieder …SeriesCollection(1).Delete

naja, bin heut nicht dazu gekommen, aber morgen schreib ich´s
dann mit ausblenden und lass die Graphen einfach drin!

Mach das, wenns nicht funktioniert melde dich nochma, dann schaue ich nochmal nach einer Vba-Lösung.

Gruß
Reinhard