Hallo VBA Profis,

muss mich hier nochmal melden, da der letzte Beitrag zu lange zurück lag.
Ich möchte alle Bereichsnamen (Namensmanager) aus einer Excel Datei in eine andere kopieren. Ein entsprechendes Makro habe ich bereits gefunden. Funktioniert mit Beispiel Dateien wunderbar. Nur bei meiner gehts nicht.

Als Anlage meine Datei
https://www.herber.de/bbs/user/162207.xlsm

Hier das Makro

Sub Names_copy()
''Es muss sicher gestellt werden, dass WbZiel geöffnet ist.
''Der Name der Zieldatei muss angepasst werden.
Dim WbZiel As Workbook
Dim n As Long
Dim Nc As Long
''ThisWorkbook ist die Mappe, in der der Code ausgeführt wird
''und in der sich die zu übetragenden Namen befinden.

''Die Anzahl der Namen in ThisWorkbook wird ermittelt.
Nc = ThisWorkbook.Names.Count
''Wenn die Anzahl der Namen größer 0 ist...
If Nc > 0 Then
''Objektvariable auf die Zielmappe setzen
Set WbZiel = Workbooks("bereichsnamen.xlsm")
''Schleife über Anzahl der Namen
For n = 1 To Nc
''Namen in der Zielmappe erzeugen
''Als Name des neu erzeugten Namen wird der selbe Name verwendet,
''wie der in ThisWorkbook.
''Als Referenz des neu erzeugten Namen wird die selbe Referenz
''verwendet, wie die in ThisWorkbook.
''Die Namen werden also nicht kopiert, sondern neu erzeugt und
''mit den selben Attributen ausgestattet, wie die Namen in der
''Quellmappe(ThisWorkbook).
WbZiel.Names.Add Name:=ThisWorkbook.Names(n).Name, RefersTo:=ThisWorkbook.Names(n).RefersTo
Next
End If
End Sub

Grüße
Günther