Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Namen kopieren

Forumthread: Namen kopieren

Namen kopieren
Pepi
Hallo zusammen
mit folgendem Befehl kann ich einen Zellbereich dem Namen "neu" zuordnen
ActiveWorkbook.Worksheets("Tabelle2").Names.Add Name:="neu", RefersToR1C1:="=Tabelle1!R15C7:R19C9"
Die folgende Prozedur sollte nun Namen von einer Arbeitsmappe in eine andere kopieren - leider gehts nicht. 
Sub SU_Namen_Kopieren()
Dim definedName As Object
For Each definedName In ThisWorkbook.Names
Workbooks("xNamen_Kopie.xlsx").Names.Add Name:=definedName.Name, RefersToR1C1:=" _
definedName"
Next
End Sub
kann mir jemand weiterhelfen? Es gibt ja auch den Unterschied, ob der Name für ganze Datei oder nur für ein Arbeitsblatt gültig ist. Macht es einen Unterschied, ob die Sourcedatei oder die Zieldatei aktiviert ist?
mfg
Pepi
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Namen kopieren
16.07.2012 15:21:46
Ralf
Hallo Pepi,
wenn du dieser Sub die Quelle (z.B. "Thisworkbook" und das Zielworkbook (z.B. "Workbooks("xNamen_Kopie.xlsx" ") übergibst sollten alle Namen inkl. der zugewiesenen Namen kopiert werden.
Private Sub NamesCopy(xlObjQ As Object, xlObjZ As Object)
Dim oNameQ As Object, oNameZ As Object
On Error Resume Next
For Each oNameQ In xlObjQ.Names
Set oNameZ = xlObjZ.Names(oNameQ.Name)
If oNameZ Is Nothing Then Set oNameZ = xlObjZ.Names.Add( _
Name:=oNameQ.Name, RefersTo:=oNameQ.RefersTo)
oNameZ.RefersToR1C1 = oNameQ.RefersToR1C1
Set oNameZ = Nothing
Next oNameQ
Set oNameZ = Nothing
End Sub
"Thisworkbook" ist das Workbook, aus dem das Makro aufgerufen wird.
"Activeworkbook" ist die in dieem Moment aktive Arbeitsmappe.
Gruß Ralf
Anzeige
AW: Namen kopieren
16.07.2012 16:18:35
Pepi
Hallo Ralf
Vielen Dank für den tollen Code - funktioniert bestens!!
mfg
Pepi
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige