VBA-Beispiel 005
mail schreiben
mail schreiben

VBA alle Tabellen der Datei auflisten
das Makro fügt eine neue Tabelle ein in der alle Tabellen dieser Arbeitsmappe als Hyperlink aufgelistet werden.
Sub Tabellenliste()
Dim wks As Worksheet
Dim Zeile As Long

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

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

'alle Tabellen eintragen
For Each wks In ThisWorkbook.Worksheets
'als Hyperlink
  With ThisWorkbook.Worksheets("Tabellenliste")
      .Hyperlinks.Add Cells(Zeile, 2), _
       Address:="", SubAddress:=wks.Name & "!A1"
  End With

  Zeile = Zeile + 1
Next wks

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

End Sub
Download:   vba005.zip

relevante Links:

top