Arbeitsblätter mit VBA löschen

May 29

In Microsoft Excel können Sie ein Arbeitsblatt durch Rechtsklick auf den Tab und wählen Sie "Löschen" aus dem Kontextmenü entfernen. Ein kleines Fenster fordert Sie auf, den Vorgang zu bestätigen. Dies verhindert ein versehentlichen Löschen. Durchläuft die Bestätigungsaufforderung kann störend, jedoch, wenn Sie viele Blätter entfernen möchten. Glücklicherweise können Sie Arbeitsblätter mit VBA löschen. Excel-VBA kommt mit einem "Sheets"-Funktion, die Sie zum Erstellen, umbenennen, verschieben und Löschen von Arbeitsblättern verwenden können. Mit ein paar mehr Zeilen Code können Sie im Bestätigungsfenster zu umgehen und Arbeitsblätter schneller entfernen.

Anweisungen

1 Starten Sie Microsoft Excel. Drücken Sie "Strg" plus "O," wählen Sie Ihre Arbeitsmappe aus der Liste aus und klicken Sie auf "Öffnen".

2 Drücken Sie "Alt" Stecker "F8", um das Öffnen des Fensters "Makros". Geben Sie "RemoveSheets" im Feld "Makroname" und klicken Sie auf "Erstellen". Daraufhin wird der Visual Basic-Editor (VBE).

3 Geben Sie den folgenden Code im VBE.

Sub RemoveSheets()

wSheets = Array ("SHEET1", "Tabelle2", "Tabelle3")

Application.DisplayAlerts = False

Für n = 0 bis UBound(wSheets)

On Error Resume Next

Sheets(wSheets(n)).Delete

Nächste n

Application.DisplayAlerts = True

EndSub

4 Ersetzen "Tabelle1", "Tabelle2" bis "Tabelle3" mit den Namen der Arbeitsblätter, die Sie löschen möchten. Um einen anderen Namen zur Liste hinzuzufügen, geben Sie ein Komma, und fügen Sie den Namen des Blatts vor der schließenden Klammer der Array-Funktion. Achten Sie darauf, dass Sie es in Anführungszeichen einschließen.

5 Drücken Sie "Alt" und "Q" den VBE zu schließen.

6 Drücken Sie "Alt" plus "F8", "Makros"-Fenster wieder zu öffnen. Wählen Sie aus "RemoveSheets" aus der Liste und dann auf "Ausführen".

Tipps & Warnungen

  • Um schnell das Makro auszuführen, können Sie eine Tastenkombination zu binden. Drücken Sie "Alt" und "F8", öffnen Sie das Fenster "Makros", "RemoveSheets" und klicken Sie auf "Optionen". Klicken Sie auf das leere Feld unter "Shortcut Key" und geben Sie Ihre bevorzugte Brief-Verknüpfung.
  • Um das Makro zu halten, speichern Sie die Datei als eine Arbeitsmappe mit Makros. Presse "F12", geben Sie Ihre bevorzugte Dateinamen und wählen Sie "Excel-Arbeitsmappe mit Makros" aus dem Dropdown-Menü neben "Speichern als Typ". Klicken Sie auf "Speichern".
  • Makros werden in Microsoft Excel standardmäßig deaktiviert. Um sie zu aktivieren, klicken Sie auf die Microsoft Office-Schaltfläche und wählen Sie "Excel-Optionen." Sicherstellen Sie unter "Popular,", dass "Show Developer Tab in the Band" aktiviert ist. "Trust Center" und klicken Sie auf "Vertrauensstellungscenter". Gehen Sie zu "Einstellungen für Makros" und wählen Sie "Alle Makros aktivieren." Klicken Sie auf "OK", um Ihre Änderungen zu speichern und starten Microsoft Excel.

SIE KÖNNEN AUCH GERNE