Stefan's Weblog

19Jul/120

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

hat dir dieser Artikel gefallen?

Dann abonniere doch diesen Blog per RSS Feed!

Kommentare (0) Trackbacks (0)

Zu diesem Artikel wurden noch keine Kommentare geschrieben.


Leave a comment

Noch keine Trackbacks.

%d Bloggern gefällt das: