Wie löscht man den Inhalt eines benannten Bereichs in Excel?
Diese Anleitung zeigt Ihnen, wie Sie Inhalte aus einem bestimmten benannten Bereich oder aus allen benannten Bereichen des aktiven Arbeitsblatts in Excel löschen – mithilfe von VBA behalten Sie dabei die benannten Bereiche bei und entfernen deren Inhalte effizient.
Inhalt eines benannten Bereichs mit VBA-Code löschen
Inhalt eines benannten Bereichs mit VBA-Code löschen
Gehen Sie wie folgt vor, um den Inhalt eines bestimmten benannten Bereichs oder aller benannten Bereiche im aktuellen Arbeitsblatt zu löschen.
1. Drücken Sie im Arbeitsblatt, das den benannten Bereich enthält, dessen Inhalt Sie löschen möchten, die Tastenkombination Alt+F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie anschließend den folgenden VBA-Code in das Code-Fenster.
Verwenden Sie den folgenden VBA-Code, um den Inhalt eines bestimmten benannten Bereichs in Ihrem Arbeitsblatt zu löschen.
VBA-Code 1: Inhalt eines bestimmten benannten Bereichs in Excel löschen
Sub Clear_ActiveSheet_Name_Ranges()
Dim xName As Name
Dim xInput As String
Dim xRg As Range
On Error Resume Next
xInput = Application.InputBox("Enter the name of the named range you will clear contents from:", "KuTools For Excel", , , , , , 2)
If xInput = "False" Then Exit Sub
Application.ScreenUpdating = False
Set xName = ActiveWorkbook.Names(xInput)
If Not xName Is Nothing Then
xName.RefersToRange.Clear
End If
Application.ScreenUpdating = True
End Sub3. Drücken Sie die Taste F5, um den Code auszuführen.
4. Anschließend erscheint das Dialogfeld Kutools für Excel. Geben Sie den Namen des benannten Bereichs ein, dessen Inhalt Sie löschen möchten, und klicken Sie auf die Schaltfläche OK. Siehe Screenshot:
Der gesamte Inhalt der Zellen im angegebenen benannten Bereich wird sofort gelöscht.
Verwenden Sie den folgenden VBA-Code, um den Inhalt aller benannten Bereiche im aktiven Arbeitsblatt zu leeren.
VBA-Code 2: Inhalt aller benannten Bereiche im Aktuelles Arbeitsblatt in Excel löschen
Sub Clear_All_ActiveSheet_Name_Ranges()
Dim xRange As Range
Dim xName As Name
Dim xReSponse As Long
On Error Resume Next
xReSponse = MsgBox("For clearing contents of all named ranges of active sheet in " & ActiveWorkbook.Name _
& Chr(10) & "('OK' to Delete, 'Cancel' to Quit.)", vbOKCancel, "KuTools For Excel")
If xReSponse = 2 Then
MsgBox "User chose to cancel.", vbOKOnly, "KuTools For Excel"
Exit Sub
End If
For Each xName In ActiveWorkbook.Names
Set xRange = Nothing
Set xRange = Intersect(ActiveSheet.UsedRange, xName.RefersToRange)
If Not xRange Is Nothing Then xRange.Clear
Next xName
Application.ScreenUpdating = True
End Sub3. Drücken Sie die Taste F5, um den Code auszuführen, und klicken Sie anschließend im Dialogfeld auf die Schaltfläche OK sowie auf Kutools für Excel, wie im folgenden Screenshot gezeigt.
Anschließend wird der Inhalt aller benannten Bereiche aus dem aktuellen Arbeitsblatt gelöscht.
Verwandte Artikel:
- Wie löscht man den Inhalt eines Kombinationsfeldes mithilfe von VBA-Code in Excel?
- Wie löscht man Inhalt und Formatierung gleichzeitig aus Zellen in Excel?
- Wie entfernt man eingeschränkte Werte aus Zellen in Excel?
- Wie löscht man den Inhalt bestimmter Zellen, sobald sich der Wert einer anderen Zelle in Excel ändert?
- Wie löscht man den Inhalt bestimmter Zellen beim Öffnen und Schließen einer Excel-Arbeitsmappe?
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