Alle weiteren Tabellenblätter löschen

15. Juli 2009
Martin Althaus Von Martin Althaus, Excel, Office ...

So löschen Sie alle Tabellenblätter nach dem ersten Blatt

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 ErstesBlattLassen()
Application.DisplayAlerts = False
While Worksheets.Count > 1
Worksheets(2).Delete
Wend
Application.DisplayAlerts = True
End Sub

Nach dem Start des Makros werden alle Tabellenblätter bis auf das erste 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.

Tipp: Falls Sie wissen möchten, wie Sie ein Makro in Excel eingeben und starten, finden Sie hier eine Kurzanleitung:

http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html

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"