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

Stefan

ist absolut technik-begeistert und großer Fan von Linux und Open Source. Raspberry Pi Bastler der ersten Stunde und nach wie vor begeistert von dem kleinen Stück Hardware, auf dem er tolle Projekte umsetzt. Teilt hier seine Erfahrungen mit Nextcloud, Pi-hole, YubiKey, Synology und openmediavault und anderen spannenden IT-Themen. Nutzt Markdown und LaTeX zum Dokumentieren seiner Projekte und Gitea zum Versionieren. Sitzt vor einem 49“ Monitor, nutzt Windows und MacOS zum Arbeiten, Linux auf seinen Servern und virtuellen Maschinen und hört dabei Spotify und MP3s und Radio-Streams über seinen RadioPi.

Trinkt gerne fairen Kaffee und freut sich deshalb sehr über jede Spende.

• • bc1qfuz93hw2fhdvfuxf6mlxlk8zdadvnktppkzqzj