Direkt zum Inhalt

Wie lösche ich schnell alle benannten Bereiche in Excel?

Angenommen, Sie haben viele benannte Bereiche in Ihrer Arbeitsmappe erstellt, aber jetzt brauchen Sie diese benannten Bereiche nicht mehr. Wie können Sie alle benannten Bereiche in Excel gleichzeitig entfernen?

Löschen Sie alle benannten Bereiche, indem Sie zum Namensmanager gehen

Im Dialogfeld Name Manager können Sie die benannten Bereiche nach Belieben erstellen, bearbeiten und löschen. Bitte machen Sie Folgendes:

1. Geh zum Name Manager Beim Klicken Formel > Name Manager, siehe Screenshot:
doc-delete-named-range1

2. In dem Name Manager Dialog, drücken Sie Shift Taste, um alle benannten Bereiche auszuwählen oder die Taste gedrückt zu halten Ctrl Taste, um diejenigen auszuwählen, die Sie nicht benötigen, siehe Screenshot:
doc-delete-named-range1

3. Und dann klick Löschen Klicken Sie oben im Dialogfeld auf die Schaltfläche, und ein Eingabeaufforderungsfeld wird angezeigt, um Sie daran zu erinnern, ob Sie die Namen sicher löschen möchten.
doc-delete-named-range1

4. Dann klick OKwurden alle benannten Bereiche auf einmal gelöscht.

doc-delete-named-range4 -2 doc-delete-named-range5

Suchen und ersetzen Sie alle benannten Bereiche durch entsprechende Zellreferenzen in Formeln

Kutools für Excel Bereichsnamen ersetzen Das Dienstprogramm kann alle Formeln, die benannte Bereiche in einem ausgewählten Bereich, einem bestimmten Blatt oder allen Blättern anwenden, leicht herausfinden. Die Hauptaufgabe dieses Dienstprogramms besteht darin, alle benannten Bereiche durch entsprechende Zellreferenzen in diesen Formeln zu ersetzen.

Holen Sie sich jetzt eine 30-tägige kostenlose Testversion mit vollem Funktionsumfang!

Anzeige ersetzen benannten Bereich 1

Kutools for Excel - Laden Sie Excel mit über 300 wichtigen Tools auf. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Hol es dir jetzt

Löschen Sie alle benannten Bereiche mit VBA-Code

Der folgende kurze VBA-Code kann Ihnen auch dabei helfen, alle benannten Bereiche in der Arbeitsmappe zu entfernen.

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen-Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.

VBA-Code: Löschen Sie alle benannten Bereiche in Excel

Sub DeleteNames()
'Update 20140314
Dim xName As Name
For Each xName In Application.ActiveWorkbook.Names
    xName.Delete
Next
End Sub

3. Dann drücken F5 Schlüssel zum Ausführen dieses Codes, alle Namen in der Arbeitsmappe werden sofort entfernt.

In Verbindung stehende Artikel:

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien  |   VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste   |  Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln   |  Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets:  12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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 ...

Beschreibung

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!
Comments (8)
Rated 4.5 out of 5 · 1 ratings
keenimo
keenimo
This comment was minimized by the moderator on the site
first if the excel extension is xls then convert it using excel to xlsx .then close excel. make a backup of your xlsx file. rename this backup extension to zip. under zip file there is a xl folder.under the xl folder there is a workbook.xml file. open it with xml notepad and delete defined names. or open it with notepad delete between <definednames> to </definednames>. and also delete this definednames parts too.then save this workbook.xml and drag drop inside zip files xl folder . then save it. and change the extension to xlsx file. open the file and press Ctrl+S. All defined names cleared with hidden ones.
Reply
0
0
Rated 4.5 out of 5
lidwyn
lidwyn
This comment was minimized by the moderator on the site
You should check if it is an internal protected name range like so
```
Sub DeleteNames()
Dim xName As Name
For Each xName In Application.ActiveWorkbook.Names
If Split(xName.Name, ".")(0) <> "_xlfn" Then
xName.Delete
End If
Next
End Sub
```
Reply
0
0
John Galaska
John Galaska     lidwyn
This comment was minimized by the moderator on the site
This was an improved code from the prior. I had many names for which the delete button was dimmed out, wouldn't work, nor would the prior code. Yours removed all but one. Thank you!!
Reply
0
0
lidwyn
lidwyn     lidwyn
This comment was minimized by the moderator on the site 

Sub DeleteNames()
    Dim xName As Name
    For Each xName In Application.ActiveWorkbook.Names
        If Split(xName.Name, ".")(0) <> "_xlfn" Then
            xName.Delete
        End If
    Next
End Sub
Reply
0
0
Murali
Murali
This comment was minimized by the moderator on the site
Run Time Error 7
out of memory
Reply
0
0
skyyang
skyyang     Murali
This comment was minimized by the moderator on the site
Hello, Murali
I have tested the code, it works well in my workbook.
Could you upload your workbook here, so that we can check where the problem is?

Thank you!
Reply
Report
0
0
Ron S
Ron S
This comment was minimized by the moderator on the site
How about something a little more specific.

First Identify all unused named ranges, for review.

Second, macro to delete all unused named ranges.
Reply
0
0
Brendan
Brendan
This comment was minimized by the moderator on the site
When I try to run the above VBA Code, I get the following error:

Run-time error '1004'
The syntax of this name isn't correct.

Verify that the name:
- Starts with a letter or underscore
- Doesn't include a space or character that isn't allowed
- Doesn't conflict with an existing name in the workbook
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations