1 Frage zu Namensmanager

Um in Excel die Verweise (Bezüge) im Namensmanager per VBA zu löschen, kannst du folgenden Ansatz verwenden: 1. **Öffne den VBA-Editor** (ALT + F11). 2. **Füge ein neues Modul** ein. 3. **Füge folgenden Code ein:** ```vba Sub NamenMitVerweisenLöschen() Dim n As Name Dim wsName As String Dim zuLöschen As Collection Dim elem As Variant Set zuLöschen = New Collection ' Alle Namen durchgehen For Each n In ThisWorkbook.Names ' Prüfen, ob der Name ein externer Verweis ist (z.B. enthält "[") If InStr(1, n.RefersTo, "[") > 0 Then zuLöschen.Add n.Name End If Next n ' Namen löschen For Each elem In zuLöschen ThisWorkbook.Names(elem).Delete Next elem MsgBox zuLöschen.Count & " Verweise wurden gelöscht." End Sub ``` **Hinweise:** - Der Code sucht nach Namen, deren Bezug ein externes Dokument enthält (erkennbar an `[` im Bezug). - Du kannst die Bedingung in der `If`-Zeile anpassen, falls du andere Kriterien hast. - Der Code löscht **nur** Namen auf Arbeitsmappenebene. Für arbeitsblattspezifische Namen müsste der Code erweitert werden. **Weitere Infos zum Namensmanager:** - [Microsoft Support: Definierte Namen in Excel](https://support.microsoft.com/de-de/office/definierte-namen-in-formeln-verwenden-7fd5e781-92ad-4b89-8a48-2fd7b38d617f) **Achtung:** Das Löschen von Namen kann nicht rückgängig gemacht werden. Am besten vorher die Datei sichern!