Zellname auslesen
21.06.2022 23:50:23
Siegfried
ich möchte die Informationen, die ich über den Namen-Manager erhalte in einem Arbeitsblatt notieren.
Einen Teil, nämlich den Zellnamen und die Zelladdresse, erhalte ich mit dem folgenden Code:
Sub Zellnamen_auslesen()
Dim r As Long
Dim nm As Name
Dim LaufzeitStart As Date, LaufzeitEnde As Date
LaufzeitStart = Timer
On Error Resume Next
With Worksheets(1)
For Each nm In ActiveWorkbook.Names
r = r + 1
.Cells(r, 159) = nm.Name
.Cells(r, 160) = nm.RefersToRange.Address
Next nm
End With
LaufzeitEnde = Timer
End
Sub
Ich möchte aber auch die weiteren Informationen notieren, also den Wert der Zelle, den Bereich und einen evtl. vorhandenen Kommentar.
In der Hilfe bin ich nicht fündig geworden.
Wie muß ich den Code erweitern?
Gruß
Siegfried