Zellnamen auslesen im Z1S1 Format
30.06.2022 00:00:01
Siegfried
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
Kann ich die Ausgabe auch in der Z1S1 Schreibweise erhalten?
Und wie müsste der Code verändert werden?
Gruß
Siegfried
Anzeige