Hallo,

folgendes Problem habe ich:
ich möchte aus einer Datei mit mehreren Blättern die Namen von verschiedenen Zellen auflisten, und zwar mit dem Namen des Blattregisters.
Unter der ExcelHilfe habe ich folgendes Names-Auflistungsobjekt gefunden, das mir zwar eine Anlistung der Namen und Zellen auswirft, mir fehlt jedoch noch der Registername, in dem die Zelle steht:

Set nms = ActiveWorkbook.Names
Set wks = Worksheets(1)
For r = 1 To nms.Count
wks.Cells(r, 2).Value = nms(r).Name
wks.Cells(r, 3).Value = nms(r).RefersToRange.Address
Next

Hat jemand eine Idee?

Vielen Dank im voraus.
Stefan