Wie lösche ich ein Blatt, wenn der Name bestimmten Text aus der Arbeitsmappe enthält?
Angenommen, Sie haben eine Arbeitsmappe, die mehrere Arbeitsblätter enthält, und jetzt möchten Sie die Blätter nach Registerkartennamen löschen. Wenn der Blattname beispielsweise einen bestimmten Text „KTE“ enthält, löschen Sie ihn und erhalten Sie den folgenden Screenshot. Wie können Sie die Blätter löschen, wenn der Name sofort einen bestimmten Text enthält, ohne sie einzeln zu löschen?
Löschen Sie Blätter, wenn der Name bestimmten Text mit VBA-Code enthält
Löschen Sie Blätter, wenn der Name bestimmten Text mit VBA-Code enthält
Hier erstelle ich einen VBA-Code, mit dem Sie die Blätter nach Namen löschen können. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Löschen Sie Blätter, wenn der Name bestimmten Text enthält
Sub Deletebyname()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Enter the specific text:", "Kutools for Excel", _
ThisWorkbook.ActiveSheet.Name, , , , , 2)
If shName = "" Then Exit Sub
xName = "*" & shName & "*"
' MsgBox xName
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Name Like xName Then
xWs.Delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
3. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, dass Sie den spezifischen Text eingeben, auf dessen Grundlage Sie die Registerkarte "Blatt" löschen möchten (siehe Abbildung):
4. Und dann klick OKAlle Blätter, deren Name den angegebenen Text „KTE“ enthält, wurden 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, 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 Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!