Diagrammblätter per Makro löschen

22. Oktober 2008
Martin Althaus Von Martin Althaus, Excel, Office ...

Wie Sie alle Diagrammblätter aus einer Arbeitsmappe entfernen

Diagramme können als Objekte in einem Tabellenblatt angelegt sein oder sich als einzelne Diagrammblätter in Ihrer Arbeitsmappe befinden. Wenn Sie alle Diagrammblätter aus einer Arbeitsmappe löschen möchten, können Sie das folgende Makro einsetzen:

Sub LoescheDiagramme()
Dim Diagramm As Chart
Application.DisplayAlerts = False
For Each Diagramm In ActiveWorkbook.Charts
Diagramm.Delete
Next Diagramm
Application.DisplayAlerts = True
End Sub

Das Makro löscht die Diagrammblätter ohne weitere Rückfrage. Wenn Sie vor dem Löschen eines Blatts eine Rückfrage erhalten möchten, entfernen Sie bitte die Zeile Application.DisplayAlerts = False aus dem Makro.

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

  • Excel Vorlagen zum Sofort-Download
  • Geprüfte Vorlagen zum Sofort-Einsatz
  • Gratis Makros & Add-Ins im Downloadcenter
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"