Namen kopieren
Pepi
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
mfg
Pepi