zum auslesen von Zellnamen habe ich folgenden Code:
Sub Zellnamen_auslesen()
Application.Calculation = xlCalculationManual
Dim r As Long
Dim nm As Name
On Error Resume Next
With Worksheets(1)
For Each nm In ActiveWorkbook.Names
r = r + 1
.Cells(r, 158) = nm.Name
.Cells(r, 159) = nm.RefersToRange.Name
Next nm
End With
Application.Calculation = xlCalculationAutomatic
End Sub
Dabei wird der Bezug (nm.RefersToRange.Name) in der A1 Schreibweise ausgegeben.Kann ich die Ausgabe auch in der Z1S1 Schreibweise erhalten?
Und wie müsste der Code verändert werden?
Gruß
Siegfried