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

Gib mir gerne einen Kaffee ☕ aus ❗️

Wenn dir meine Beiträge gefallen und geholfen haben, dann kannst du mir gerne einen Kaffee ☕️ ausgeben.

•

Bitcoin Address: bc1qfuz93hw2fhdvfuxf6mlxlk8zdadvnktppkzqzj

Follow Me❗️

Mastodon • Mastodon RSS • codeberg.org/sst • RSS