Definierte Namen mit Bezügen auflisten
Ausgangslage - Was tut dieser Code-Schnipsel?
Dieses kleine Makro listet alle in Microsoft Excel definierten Namen und der dazugehörigen Bezüge in einem neuen Arbeitsblatt auf. Der Vollständigkeit halber - es geht auch schneller ohne Makro: Einfach F3 drücken und die Option "Liste einfügen" wählen.
Der Quelltext
Option Explicit
' Original-Quelltext unter: https://www.online-vba.de/definierte-namen-mit-bezuegen-auflisten
' Express-Hilfe für VBA unter https://www.online-vba.de/vba-expresshilfe
' Es gelten die Nutzungsbedingungen von Online-VBA.de
Public Sub OVBAde_ExcelNamenAdresseAuflisten()
Dim oName As Object
Dim oAusgabe As Object
Dim z As Long
Set oAusgabe = Sheets.Add
z = 2
oAusgabe.Cells(1, 1) = "Name"
oAusgabe.Cells(1, 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
Anmerkungen und Hinweise
Dieser Codeschnipsel wurde geschrieben von Marc Wershoven im Jahr 2013.
Die Nutzung erfolgt auf eigene Gefahr.
Bitte denken Sie immer zuerst an eine ausreichende Datensicherung.
Wir können keinen kostenlosen Support anbieten.
Es gelten unsere Nutzungsbedingungen.
