Diagramm Datenreihen Löschen

Forumthread: Diagramm Datenreihen Löschen

07.01.2008 18:08:52

Max

Hallo zusammen
Kann mir jemand sagen, wie ich in einem Diagramm alle Datenreihen (ausser erste) mit einem VBA Makro löschen kann.
Habe ein Diagramm mit etwa 200 Reihen welche ich per VBA Makro aktualisieren will, nur das Löschen klappt nicht so ganz.
Besten Dank für die Hilfe.
Gruss Max

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Diagramm Datenreihen Löschen

07.01.2008 21:34:13

ingUR

AW: Diagramm Datenreihen Löschen

07.01.2008 21:34:13

ingUR

Hallo, @Max,
hier ein Grundmodul für eine spezielle Lösung, die Du in besondern Punkten gggf. anpassen mußt, da Du nicht mitteilst, in welcher Programmumgebung das Diagramm, das der Prozedur unterworfen werden soll, angespriochen werden kann bzw. soll:


Option Explicit
Sub NurErsterGraph()
Dim cht As Chart, iSc As Integer
Set cht = ActiveSheet.ChartObjects(1).Chart
For iSc = cht.SeriesCollection.Count To 2 Step -1
cht.SeriesCollection(iSc).Delete
Next
End Sub

Die Besonderheit bezieht sich darauf, dass die Prozedur auf das erste Diagramm, das nicht den Fokus hat, auf dem aktiven Tabellenblatt angewendet wird.
Gruß,
Uwe

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um in einem Excel-Diagramm alle Datenreihen außer der ersten mit einem VBA-Makro zu löschen, kannst Du die folgenden Schritte befolgen:

Öffne Excel und lade die Arbeitsmappe, die das Diagramm enthält.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
- Klicke im Menü auf Einfügen > Modul.
Kopiere den folgenden VBA-Code in das Modul:

Option Explicit
Sub NurErsterGraph()
    Dim cht As Chart, iSc As Integer
    Set cht = ActiveSheet.ChartObjects(1).Chart
    For iSc = cht.SeriesCollection.Count To 2 Step -1
        cht.SeriesCollection(iSc).Delete
    Next
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro aus:
- Gehe zu Entwicklertools > Makros, wähle NurErsterGraph und klicke auf Ausführen.

Jetzt sollte das Diagramm, das Du bearbeitet hast, alle Datenreihen gelöscht haben, außer der ersten.

Häufige Fehler und Lösungen

Fehler: "Objekt nicht gefunden"
- Stelle sicher, dass Du das richtige Diagramm auf dem aktiven Blatt ausgewählt hast. Der Code greift auf das erste Diagramm zu.
Fehler: "Keine Datenreihen vorhanden"
- Prüfe, ob Dein Diagramm tatsächlich mehr als eine Datenreihe enthält. Andernfalls kann das Löschen nicht stattfinden.

Alternative Methoden

Falls Du kein VBA verwenden möchtest, kannst Du Datenreihen auch manuell löschen:

Klicke mit der rechten Maustaste auf die Datenreihe, die Du löschen möchtest.
Wähle Datenreihe löschen aus dem Kontextmenü.
Wiederhole diesen Schritt für jede unerwünschte Datenreihe.

Diese Methode ist zwar weniger effizient bei zahlreichen Datenreihen, aber sie erfordert keine Programmierkenntnisse.

Praktische Beispiele

Beispiel 1: Ein Diagramm mit mehreren Datenreihen

Du hast ein Liniendiagramm mit 200 Datenreihen. Mit dem VBA-Skript kannst Du schnell alle Datenreihen außer der ersten löschen, um nur die wesentlichen Informationen anzuzeigen.

Beispiel 2: Verwendung in der Programmumgebung

Wenn Du in einer bestimmten Programmumgebung arbeitest, wie z. B. in Excel 2016 oder neuer, sollte der oben genannte VBA-Code problemlos funktionieren, um die Datenreihen effektiv zu löschen.

Tipps für Profis

Makros speichern:
- Speichere Deine Arbeitsmappe als Excel-Arbeitsmappe mit Makros (*.xlsm), damit Dein VBA-Code erhalten bleibt.
Debugging:
- Verwende F8, um den Code schrittweise auszuführen und mögliche Fehlerquellen zu identifizieren.
Erweiterungen:
- Du kannst den Code anpassen, um spezifische Datenreihen basierend auf Namen oder anderen Kriterien zu löschen.

FAQ: Häufige Fragen

1. Wie kann ich alle Datenreihen in einem Diagramm löschen? Um alle Datenreihen zu löschen, kannst Du das folgende VBA-Skript verwenden, wobei Du die Schleife anpassen musst, um auch die erste Reihe zu löschen.

2. Funktioniert dieser Code in jeder Excel-Version? Der bereitgestellte Code sollte in den meisten modernen Excel-Versionen, einschließlich Excel 2016 und neuer, einwandfrei funktionieren. Achte darauf, dass die Makros aktiviert sind.

Beliebteste Forumthreads (12 Monate)