Tabellenblätter auflisten_automatisch mit Öffnen d
27.05.2008 11:18:00
Illusch
mit nachfolgendem Code (im Archiv gefunden) liste ich mir erfolgreich die Namen aller Tabellenblätter der Datei in einem neuen Tabellenblatt ("Inhalt") auf. Ich würde gern beim Öffnen der Datei das Tabellenblatt "Inhalt" aktualisieren lassen, z.B. durch automatisches Löschen des Tabellenblattes "Inhalt" und automatisches Ausführen des u.g. Codes. Da ich beim Thema VBA immer noch ein Anfänger bin, bitte ich um Eure Mithilfe.
Gruß
Illusch
Sub MappenInhaltZusammenstellen()
Dim Tabelle As Worksheet
Dim i As Integer
Worksheets.Add.Move before:=Worksheets(1)
ActiveSheet.Name = "Inhalt"
Cells(2, 2).Value = "Enthaltene Blätter"
i = 3
For Each Tabelle In ActiveWorkbook.Worksheets
If Tabelle.Name "Inhalt" Then
Cells(i, 2).Value = Tabelle.Name
Tabelle.Hyperlinks.Add Anchor:=Cells(i, 2), _
Address:="", SubAddress:=Tabelle.Name & _
"!A1", ScreenTip:="Hyperlink klicken", _
TextToDisplay:=Tabelle.Name
i = i + 1
End If
Next Tabelle
End Sub