Startseite Inhaltsverzeichnis Nutzungsbedingungen Datenschutz Impressum Weitere Informationen

CODE-SCHNIPSEL

Alle definierten Namen mit Bezügen auflisten

VBA und Makros • Codeschnipsel • Arbeitsblatt • Bezüge • Namen • Auswertung

Ausgangslage ... Was tut der Codeschnipsel?

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.

VBAVBA Codeschnipsel
XLSQuelltext zur Verwendung mit Microsoft® Excel®

Der Quelltext ...

Option Explicit
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_namensliste.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.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.
Es gelten die Nutzungsbedingungen von Online-VBA.de.
TOTOP
ANZEIGE