Zellnamen auslesen
17.06.2022 15:15:19
Siegfried
ich möchte die verwendeten Zellnamen in meiner Datei notieren und habe in der Hilfe den nachstehenden Code gefunden:
das Beispiel aus der Excel-Hilfe hat keinen Namen vergeben und die Variablen nicht definiert
Sub Namen_auslesen()
Dim r As Integer
Dim nms As Workbook
Dim wks As Worksheet
Set nms = ActiveWorkbook.Names
Set wks = Worksheets(1)
For r = 1 To nms.Count
' Debug.Print habe ich zur Kontrolle eingefügt
Debug.Print nms(n1).Name
' wks.Cells(r, 157).Value = nms(n1).Name
' wks.Cells(r, 158).Value = nms(n1).RefersToRange.Address
Next
End Sub
Wie muss der Code verändert werden?
Gruß
Siegfried