Bereichsnamen übertragen
Nick
Erst einmal ein rechtherzliches Dankschöne für eure tolle Hilfe immer. Nun habe ich ein neues Problem.
ich habe folgendes Problem:
Ich habe einige Bereichsnamen, welche in in verschiedene Tabellen kopieren möchte.
Ich habe mir dazu, dass VBA-Skript von microsoft und eine andere runtergeladen. Wenn ich es mit dem Beispiel Book1 und Book2 versuche (http://support.microsoft.com/kb/213389/de), funktioniert es problemlos. Nur wenn ich es dann auf eine andere Liste transponieren möchte hat Excel Probleme (Debuggen passiert beim fett markieten).
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("Kundenliste.xlsm")
For n = 1 To Nc
WbZiel.Names.Add Name:=ThisWorkbook.Names(n).Name, _
RefersTo:=ThisWorkbook.Names(n).RefersTo
Next
End If
End Sub