Wie löscht man ein Arbeitsblatt basierend auf einem Zellenwert in Excel?
Wenn Sie mehrere Arbeitsblätter in einer Arbeitsmappe haben und bestimmte Blätter basierend auf dem Inhalt einer bestimmten Zelle löschen müssen, kann VBA helfen, diese Aufgabe zu automatisieren. Zum Beispiel möchten Sie vielleicht alle Blätter entfernen, in denen Zelle A1 ein bestimmtes Wort oder eine bestimmte Phrase enthält. Dieser Leitfaden zeigt Ihnen, wie Sie VBA verwenden können, um diese Blätter in Excel schnell zu identifizieren und zu löschen.
Arbeitsblatt basierend auf Zellenwert mit VBA-Code löschen
Arbeitsblatt basierend auf Zellenwert mit VBA-Code löschen
Hier stelle ich Ihnen einen Code vor, mit dem Sie alle Blätter löschen können, in denen die spezifische Zelle einen bestimmten Wert hat. Gehen Sie bitte wie folgt vor:
1. Halten Sie die Tasten ALT + F11 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 im Modulfenster ein.
VBA-Code: Arbeitsblatt basierend auf Zellenwert 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 den Text enthält, auf dessen Grundlage Sie die Blätter löschen möchten.
3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und es erscheint ein Eingabefenster, das Sie auffordert, den spezifischen Wert einzugeben, auf dessen Grundlage Sie die Blätter löschen möchten, siehe Screenshot:
4. Klicken Sie anschließend auf die Schaltfläche OK, und alle Blätter, in denen Zelle A1 den Text KTE enthält, werden auf einmal gelöscht. Siehe Screenshot:
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins