Tabellen einer Excel-Arbeitsmappe in neuer Tabelle auflisten lassen

Mit diesem Makro ist es möglich, alle Tabellen einer Excel Arbeitsmappe in einer neuen Tabelle “Tablelist” auflisten zu lassen.
Das Makro erzeugt neben der reinen Namensliste auch einen Hyperlink auf die Tabelle.

Sub ListeTabellen()
Dim wks As Worksheet
Dim Zeile As Long

'Wenn bereits Liste vorhanden, dann löschen
For Each wks In ThisWorkbook.Worksheets  
  If wks.Name = "Tablelist" Then
    Application.DisplayAlerts = False
    wks.Delete
    Application.DisplayAlerts = True
  End If
Next wks

Worksheets.Add
ActiveSheet.Name = "Tablelist"
ActiveSheet.Move Before:=Worksheets(1)
Zeile = 1

'schreibe alle Tabellennamen in eine neue Tabelle und hänge !A1 an
' erzeuge einen Link auf jede Tabelle
For Each wks In ThisWorkbook.Worksheets
'als Hyperlink
  With ThisWorkbook.Worksheets("Tablelist")
      .Hyperlinks.Add Cells(Zeile, 2), _
       Address:="", SubAddress:=wks.Name & "!A1"
  End With

  Zeile = Zeile + 1
Next wks

'Sortiere Liste in Spalte B
Columns("B:B").Sort Key1:=Range("B1"), Order1:=xlAscending

End Sub

Bestseller Nr. 1

(**) Produktpreise und -verfügbarkeit sind zum angegebenen Datum / Uhrzeit korrekt und können sich ändern. Alle Preis- und Verfügbarkeitsinformationen auf https://www.amazon.de/ zum Zeitpunkt des Kaufs gelten für den Kauf dieses Produkts.

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.