Zunächst einen herzlichen Gruß ins Forum der fleissigen Excel-ianer.
Ich würde gerne die Namen, die innerhalb einer Excel-Datei existieren mit ihrem Bezug in einem neuen Arbeitsblatt auflisten, also z.B.
Zelle A1: Name1 Zelle B1: den Bezug des Namen1 (also z.B. "=Hauptblatt!$E$28")
Zelle A2: Name2 Zelle B2: den Bezug des Namen2 (also z.B. "=Hauptblatt!$A$35")
Die Schleife über alle Namen habe ich bereits gebastelt:
Sub NamenAuflisten()
Dim objN As Name
Dim lngI As Long
lngI = 1
Sheets("Namensauflistung").Activate
For Each objN In ActiveWorkbook.Names
Cells(lngI, 1) = n.NameLocal
' Cells(lngI, 2) = ?
i = i + 1
Next objN
End Sub
Bin für jede Hilfe dankbar, die mit im obigen Code die drei Fragezeichen ersetzt.
Vielen Dank im voraus
Gruß
erwin