Tabellennamen vom Namensmanager aufliste
02.12.2020 14:17:21
Mirko
ich habe leider nichts gefunden zu:
Ich möchte alle Namen und Bereiche aus dem Namensmanager auflisten (Im Tabellenblatt "Bewertung") lassen:
Sub MWExcelNamenAdresseAuflisten()
Dim oName As Object
Dim oAusgabe As Object
Dim z As Long
Set oAusgabe = Sheets("Bewertung")
z = 3
oAusgabe.Cells(2, 1) = "Name"
oAusgabe.Cells(2, 2) = "Bereich"
For Each oName In ActiveWorkbook.Names
oAusgabe.Cells(z, 1) = oName.Name
oAusgabe.Cells(z, 2) = ActiveWorkbook.Names.Item(oName.Name)
z = z + 1
Next oName
Set oName = Nothing
Set oAusgabe = Nothing
End Sub
vg