Es gibt Zeiten, in denen wir ein Blatt erstellen oder hinzufügen müssen und später festgestellt haben, dass dieses Blatt nicht verwendet wird. Daher müssen wir das Blatt schnell aus der Arbeitsmappe löschen. Dieser Artikel konzentriert sich darauf, Zeit zu sparen und Code zum Entfernen von Blättern ohne Eingabeaufforderungsmeldungsfeld mit VBA-Makro / -Code bereitzustellen. Es kann ein Blatt oder mehrere sein. Und Excel gibt eine Popup-Warnung aus, um das Löschen des Blatts zu bestätigen. Wenn es ein Blatt ist, ist es überschaubar. Wenn Sie jedoch mehrere Blätter löschen müssen, erhalten Sie ein Popup pro Blatt.
Sie erstellen oft mehrere Blätter mit VBA. Aber am Ende braucht man sie eigentlich nicht. Sie möchten sie nach getaner Arbeit löschen. Es wird Ihre Datei leichter, schneller und vernünftiger halten.
VBA-Code zum Löschen eines Blatts ist einfach
Sheets("SheetName").Löschen
Angenommen, Sie haben diesen Code, um ein Blatt hinzuzufügen und es dann zu löschen, wenn die Arbeit erledigt ist.
Sub AddAndDeleteSheet() Sheets.Add 'Fügt ein neues Blatt zur aktiven Arbeitsmappe hinzu '---- '---- '---- 'einige Arbeiten am Blatt erledigt ActiveSheet.Delete 'löscht das aktive Activesheet End Sub
Wenn Sie diesen Code ausführen, funktioniert Sheets.Add ohne Aufforderung, aber wenn der Compiler zu ActiveSheet.Löschen es wird eine Meldung wie diese anzeigen.
Da Sie Blätter mit VBA löschen, wissen Sie, was Sie tun. Sie möchten Excel anweisen, diese Warnung nicht anzuzeigen und das verdammte Blatt zu löschen.
Dazu schalten wir die Anzeige-Warnschaltfläche der Excel-Anwendung aus.
Der folgende Code umgeht diese Warnmeldung und das Blatt wird ohne Ankündigung gelöscht.
Sub AddAndDeleteSheet() Application.DisplayAlerts = False 'Ausschalten der Warnschaltfläche Sheets.Add '---- '---- '---- 'einige Arbeiten am Blatt erledigt ActiveSheet.Delete Application.DisplayAlerts = True 'Einschalten die Benachrichtigungsschaltfläche End Sub
Hier löschen wir Activesheet mit VBA. Sie können jedes Blatt mit VBA löschen. Schreiben Sie einfach Sheets("Sheetname").delete. Weiter gehts…
DisplayAlerts ist eine Eigenschaft des Anwendungsobjekts in VBA. Hier schalten wir es am Anfang unseres Codes aus und am Ende des Codes wieder ein. Der obige Code bestätigt das Löschen ohne Ankündigung.
Notiz:Der obige Code ignoriert alle von Excel ausgegebenen Warnungen. Wenn Sie nur das Löschen von Blättern zulassen möchten, verwenden Sie diese Zeile.
Application.DisplayAlerts = False 'Alarmschaltfläche ausschalten ActiveSheet.Delete Application.DisplayAlerts = True 'Alarmschaltfläche einschalten
Dadurch wird nur die Warnung zum Löschen von Blättern ignoriert.
Profi-Tipp: Diese Codezeilen machen Ihren VBA-Code effizienter.Verwenden Sie sie immer am Anfang Ihres Makros und schalten Sie sie dort wieder ein, wo Ihr Code die Routine beenden soll.Warnung: Wenn es vor dem Verlassen des Unterprogramms nicht eingeschaltet wird, sehen Sie möglicherweise überhaupt keine Warnung. Auch wenn Ihr Code nicht ausgeführt wird. Dies kann viele Probleme verursachen.
Wenn Sie mehrere Blätter löschen müssen und eine Schleife verwenden, versuchen Sie diesen Code -
Option Explicit Sub macro2() Dim i As Long Application.DisplayAlerts = False For i = 1 to Worksheets.Count If Worksheets(i).Name Like "Test*" Then Worksheets(i).Delete Next i Application.DisplayAlerts = True End Sub
Das ist es. Es ist fertig. Es ist so einfach wie das Ein- und Ausschalten Ihres Lüfters. Ist es nicht?
Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie mit Ihren Freunden auf Facebook. Und Sie können uns auch auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder erneuern und für Sie verbessern können. Schreiben Sie uns an E-Mail-SiteDownload-Datei
Löschen Sie Blätter ohne Bestätigungsaufforderung mit VBA in Microsoft Excel
Teilen Sie ein Excel-Blatt in mehrere Dateien basierend auf einer Spalte mit VBA auf
Ändern Sie den Standarddrucker mit VBA in Microsoft Excel 2016
Deaktivieren Sie Warnmeldungen mit VBA in Microsoft Excel 2016
Anzeigen einer Nachricht in der Excel VBA-Statusleiste
Einfügen von Bildern mit VBA in Microsoft Excel 2016
So durchlaufen Sie Blätter in Excel mit VBA
Populäre Artikel:
50 Excel-Kurzbefehle zur Steigerung Ihrer Produktivität
So verwenden Sie die SVERWEIS-Funktion in Excel
So verwenden Sie die ZÄHLENWENN-Funktion in Excel
So verwenden Sie die SUMIF-Funktion in Excel