Alle Excel-Tabellenblätter bis auf das letzte per VBA-Makro löschen

14. September 2011
Martin Althaus Von Martin Althaus, Excel, Office ...

Wenn Sie mit der Reihenfolge der Balken in einem Diagramm nicht zufrieden sind, brauchen Sie die Daten nicht anders anzuordnen. Sorgen Sie stattdessen über einen Trick für eine andere Sequenz der Balken

In vielen Excel-Tabellen wird nur das erste Tabellenblatt mit Informationen belegt. Was liegt da näher als andere Tabellenblätter aus der Arbeitsmappe zu entfernen?

Wenn Sie das manuell erledigen möchten, markieren Sie die zu löschenden Tabellenblätter im Blattregister und wählen die Funktion "Löschen" aus dem Kontextmenü. Aber wie geht es per Makro? Setzen Sie den folgenden Programmcode ein:

Sub AlleLoeschenOhneLetztes()
Application.DisplayAlerts = False
While Worksheets.Count > 1
Worksheets(1).Delete
Wend
Application.DisplayAlerts = True
End Sub

Nach dem Start des Makros werden alle Tabellenblätter bis auf das letzte aus der aktiven Arbeitsmappe gelöscht. Mit der Anweisung Application.DisplayAlerts=False zu Beginn wird verhindert, dass Excel ein Warnfenster vor dem Löschen der Tabellenblätter einblendet:

Vor dem Ende des Makros wird diese Eigenschaft dann wieder auf den Standardwert True zurückgesetzt, damit nachfolgende Warnfenster in Excel nicht ausbleiben.

Um das Makro einzugeben, drücken Sie in Excel die Tastenkombination ALT F11. Damit starten Sie in allen Excel-Versionen den VBA-Editor. Wählen dort das Kommando EINFÜGEN - MODUL und geben Sie das Makro ein. Um das Makro zu starten, aktivieren Sie in Excel die Tastenkombination ALT F8.

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

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"