Wie löscht man ein Arbeitsblatt in Excel basierend auf einem bestimmten Zellwert?
Wenn Sie mehrere Arbeitsblätter in einer Arbeitsmappe verwalten und bestimmte Blätter basierend auf dem Inhalt einer spezifischen Zelle automatisiert löschen möchten, hilft Ihnen VBA dabei – schnell und effizient. Stellen Sie sich vor, Sie wollen alle Blätter entfernen, deren Zelle A1 ein bestimmtes Wort oder einen bestimmten Ausdruck enthält. In dieser Anleitung zeigen wir Ihnen Schritt für Schritt, wie Sie mit VBA genau diese Blätter in Excel zuverlässig identifizieren und löschen können.
Arbeitsblatt basierend auf Zellwert mit VBA-Code löschen
Arbeitsblatt basierend auf Zellwert mit VBA-Code löschen
Hier stelle ich Ihnen einen Code vor, mit dem Sie alle Arbeitsblätter löschen können, deren bestimmte Zelle einen vorgegebenen Wert enthält. Gehen Sie dazu wie folgt vor:
1. Halten Sie die ALT + F11-Tasten gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Arbeitsblatt basierend auf Zellwert löschen:
Sub deletesheetbycell()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
"", , , , , 2)
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Range("A1").Value = shName Then
xWs.delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted " & cnt & " worksheets.", vbInformation, "Kutools for Excel"
End Sub
Hinweis: Im obigen Code ist A1 die spezifische Zelle, die einen bestimmten Text enthält, anhand dessen Sie die Blätter löschen möchten.
3. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Es erscheint daraufhin ein Eingabefeld, in dem Sie aufgefordert werden, den spezifischen Wert einzugeben, anhand dessen die Blätter gelöscht werden sollen. Siehe Screenshot:
4. Klicken Sie dann auf die Schaltfläche OK, und alle Blätter, deren Zelle A1 den Text „KTE“ enthält, werden sofort gelöscht. Siehe Screenshot:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins