Bereichnamen kopieren
Nick
Hallo liebes Forum,
leider habe ich noch ein kleines Problem. Wenn ich Workbooks.open wegnehme, dann kopiert er die Bereichsnamen aber wenn es vorhanden ist, dann nicht. Wie kann man dies kleine Problem lösen? Ich DANK EUCH für eure Hilfe!!
Private Sub Bereichsnamen_Kopieren_Click()
Workbooks.Open Filename:="D:\Test.xlsx", UpdateLinks:=3
For Each x In ActiveWorkbook.Names
Workbooks("Test.xlsx").Names.Add Name:=x.Name, _
RefersTo:=x.Value
Next x
End SubAnzeige