VBA-Beispiel 077
mail schreiben
mail schreiben

alle Zellnamen einer Datei auflisten

Schreibt alle Zellnamen einer Datei in eine neue Tabelle.
Sub alle_Zellnamen_auflisten()
'schreibt alle in der Datei vorhandenen
'Zellnamen in die Tabelle Liste
Dim Zellnamen As Object
Dim wks As Worksheet
Dim r As Long

On Error GoTo Hell

'alte Liste löschen
For Each wks In ThisWorkbook.Worksheets
  If wks.Name = "Liste" Then
    Application.DisplayAlerts = False
    wks.Delete
    Application.DisplayAlerts = True
  End If
Next wks

Worksheets.Add
ActiveSheet.Name = "Liste"

Set Zellnamen = ActiveWorkbook.Names

For r = 1 To Zellnamen.Count

'Hperlink einfügen
ActiveSheet.Cells(r, 4).Hyperlinks.Add Anchor:=Cells(r, 3), _
    Address:="", _
    SubAddress:=Zellnamen(r).Name, _
    TextToDisplay:=Zellnamen(r).Name & "   " & Zellnamen(r) _
          .RefersToRange _
          .Address(columnabsolute:=False, RowAbsolute:=False)

Next

Cells.Columns.AutoFit
Set Zellnamen = Nothing

Exit Sub

Hell:
MsgBox "Fehler", vbCritical, ""

End Sub

Download:   vba077.zip