5 Fragen 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!

In Excel können sich Namen im Namensmanager manchmal nicht löschen lassen. Das liegt meist an folgenden Gründen: 1. **Geschützte oder ausgeblendete Namen:** Manche Namen werden von Excel oder Add-Ins automatisch erstellt und sind geschützt oder ausgeblendet. Solche Namen lassen sich nicht ohne Weiteres löschen. 2. **Verknüpfungen zu externen Daten:** Wenn ein Name auf eine externe Arbeitsmappe oder Datenquelle verweist, kann Excel das Löschen verhindern, um die Integrität der Verknüpfung zu wahren. 3. **Tabellen- oder Bereichsnamen:** Namen, die automatisch durch Excel-Tabellen (z. B. „Tabelle1“) oder durch bestimmte Funktionen (wie dynamische Bereiche) erstellt wurden, können nicht immer gelöscht werden. 4. **Blattschutz oder Arbeitsmappenschutz:** Wenn das Arbeitsblatt oder die Arbeitsmappe geschützt ist, sind Änderungen im Namensmanager (einschließlich Löschen) gesperrt. 5. **Verwendung in Formeln:** Namen, die noch in Formeln oder als Datenquelle verwendet werden, können manchmal nicht gelöscht werden, bis sie aus allen Formeln entfernt wurden. **Lösungsvorschläge:** - Prüfe, ob ein Schutz aktiv ist, und hebe ihn ggf. auf. - Suche nach Verweisen auf den Namen in Formeln und entferne sie. - Überprüfe, ob es sich um einen von Excel automatisch generierten Namen handelt. - Bei ausgeblendeten Namen kann ein VBA-Makro helfen, diese zu löschen. Weitere Informationen findest du auch in der offiziellen Microsoft-Dokumentation: [Microsoft Support – Definierte Namen in Excel](https://support.microsoft.com/de-de/office/definierte-namen-in-excel-verwalten-0b4b8ae5-1b8a-40e7-a7d9-3c3bda0b8a7b)

Um einen Bereichsverweis im Namensmanager von Excel beim Schließen der Datei automatisch auf z. B. `...!R1C1:R20C18` zu vergrößern, kannst du das Workbook-BeforeClose-Ereignis in VBA nutzen. Damit wird beim Schließen der Datei der definierte Name angepasst. Hier ein Beispiel, wie du das machen kannst: 1. **VBA-Editor öffnen:** Mit `ALT + F11` den VBA-Editor öffnen. 2. **Code im "DieseArbeitsmappe"-Modul einfügen:** Im Projekt-Explorer auf "DieseArbeitsmappe" (engl. "ThisWorkbook") doppelklicken und folgenden Code einfügen: ```vba Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim nm As Name On Error Resume Next Set nm = ThisWorkbook.Names("DeinName") ' <-- Name anpassen If Not nm Is Nothing Then nm.RefersToR1C1 = "='Tabelle1'!R1C1:R20C18" ' <-- Blattname ggf. anpassen End If On Error GoTo 0 End Sub ``` **Hinweise:** - Ersetze `"DeinName"` durch den Namen, den du im Namensmanager verwendest. - Passe `'Tabelle1'` an den tatsächlichen Blattnamen an. 3. **Speichern:** Die Datei als Makro-fähige Arbeitsmappe (`.xlsm`) speichern. **Was passiert?** Jedes Mal, wenn die Datei geschlossen wird, wird der Bereich des angegebenen Namens automatisch auf `R1C1:R20C18` gesetzt. **Weitere Infos:** - [Microsoft: Workbook_BeforeClose-Ereignis](https://learn.microsoft.com/de-de/office/vba/api/excel.workbook.beforeclose) - [Microsoft: Name.RefersToR1C1-Eigenschaft](https://learn.microsoft.com/de-de/office/vba/api/excel.name.referstor1c1) Damit wird dein Bereichsname beim Schließen automatisch angepasst.

Das Problem tritt auf, weil Excel-Bereichsnamen, die im Namensmanager definiert sind, oft auf feste Zellbereiche verweisen (z. B. `=Tabelle1!$A$1:$A$10`). Wenn du per VBA versuchst, beim Schließen der Datei diesen Bereich zu vergrößern (z. B. auf `=Tabelle1!$A$1:$A$20`), kann die Fehlermeldung „Zuweisung an schreibgeschützte Eigenschaft nicht möglich“ erscheinen. Das passiert meist, wenn du versuchst, die **RefersToRange**-Eigenschaft eines Namens zu ändern, der nicht direkt auf einen Zellbereich verweist oder wenn der Name komplexe Formeln enthält. **Lösung:** Statt `RefersToRange` solltest du die **RefersTo**-Eigenschaft verwenden, um den Bezug zu ändern. **Beispiel:** ```vba ThisWorkbook.Names("MeinBereich").RefersTo = "=Tabelle1!$A$1:$A$20" ``` **Wichtige Hinweise:** - Stelle sicher, dass der Name tatsächlich auf einen Zellbereich verweist. - Die Schreibweise muss exakt sein (z. B. mit Gleichheitszeichen und Blattname). - Wenn der Name auf eine Formel oder einen dynamischen Bereich verweist, kann `RefersToRange` nicht verwendet werden. **Zusammenfassung:** Die Fehlermeldung entsteht, weil du vermutlich `RefersToRange` statt `RefersTo` verwendest oder der Name nicht direkt auf einen Zellbereich zeigt. Verwende `RefersTo`, um den Bereich per VBA zu ändern. Weitere Infos findest du in der [Microsoft-Dokumentation zu Names-Objekten](https://learn.microsoft.com/de-de/office/vba/api/excel.name).

Um in Excel mit VBA den Bereich eines Bereichsverweises (z. B. eines definierten Namens im Namensmanager), der als Datenquelle für ein Diagramm dient, zu vergrößern, kannst du den Bereich des Namens dynamisch anpassen. Das geht, indem du die Definition des Namens per VBA änderst. **Beispiel:** Angenommen, du hast im Namensmanager einen Namen „Datenbereich“, der aktuell auf `=Tabelle1!$A$1:$A$10` verweist. Du möchtest diesen Bereich per VBA auf z. B. `=Tabelle1!$A$1:$A$20` erweitern. **VBA-Code:** ```vba Sub BereichsverweisVergroessern() Dim wb As Workbook Set wb = ThisWorkbook ' Namen "Datenbereich" auf neuen Bereich setzen wb.Names("Datenbereich").RefersTo = "=Tabelle1!$A$1:$A$20" End Sub ``` **Hinweise:** - Der Name „Datenbereich“ muss bereits im Namensmanager existieren. - Das Diagramm, das diesen Namen als Datenquelle verwendet, aktualisiert sich automatisch auf den neuen Bereich. - Du kannst den Bereich auch dynamisch berechnen, z. B. mit `UsedRange` oder `End(xlDown)`. **Weitere Infos:** - [Microsoft: Names.Add-Methode (VBA)](https://learn.microsoft.com/de-de/office/vba/api/excel.names.add) - [Microsoft: Name.RefersTo-Eigenschaft (VBA)](https://learn.microsoft.com/de-de/office/vba/api/excel.name.refersto) So kannst du den Bereichsverweis im Namensmanager per VBA vergrößern und das Diagramm entsprechend anpassen.