(Bereichs-)Namen in andere Mappe kopieren?

Guten Abend, zusammen,
darf ich noch einmal auf Eure Expertise hoffen?
In meinem Workbook habe ich vielen Spaltenbereichen, aber auch sehr vielen Formeln (weil letztere teilweise monstermässig lang...) Namen zugewiesen. Durch ein Versehen im Makroablauf habe ich meine Originaldatei unbrauchbar umsortiert und auch noch gespeichert, ich Blödchen.
Nun habe ich zwar noch eine weitere Originaldatei (.sik), aber dort sind die Namen noch nicht definiert.
Ich suche jetzt nach einem Weg, die definierten Namen aus der .unbrauchbar in die .sik zu übernehmen/kopieren, OHNE nochmals händisch sämtliche Monsterformeln (über 50 Stück!!!) via EINFÜGEN/NAMEN/DEFINIEREN 'reinzufummeln...
Ich weiss, daß es möglich ist via VBA alle vergebenen Namen auf einen Schlag in einer Arbeitsmappe zu löschen,
aber habt Ihr eine Idee, wie es "umgekehrt" geht: alle Namen von der einen in die andere Mappe via VBA zu übernehmen?
Insbesondere jene Namen, die keine Zellbereiche, sondern die Monsterformeln definieren?
Herzlichen Dank vorab für Vorschläge/Meinungen/Kommentare... LG, KL

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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 Nc = ThisWorkbook.Names.Count If Nc > 0 Then Set WbZiel = Workbooks("Ziel.xls") For n = 1 To Nc WbZiel.Names.Add Name:=ThisWorkbook.Names(n).Name, _ RefersTo:=ThisWorkbook.Names(n).RefersTo Next End If End Sub

Hallo,


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("Ziel.xls")
''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

Gruß K.Rola

Beliebteste Forumthreads (12 Monate)

(Bereichs-)Namen in andere Mappe kopieren?

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread