Inhaltsverzeichnis mit Überschrift
12.11.2004 15:30:05
giovanni
habe folgendes Makro gefunden was mir in gesonderter Tabelle ein Inhaltsverzeichnis aller Blattnamen wiedergibt (in Spalte A A3,A4,A5)
Tolle Sache!
Nun habe ich in allen Tabellen in Zeile A1 die Überschrift stehen,
diese hätte ich auch gerne im Inhaltsverzeichnis.
Wie kann ich das Makro verändern, sodass in Zelle B3, B4, B5
zusätzlich die Überschriften des Blattes reingeschrieben werden bzw
die dort enthaltnen Formeln?
Besten Dank
gio
Sub MappenInhaltZusammenstellen()
Dim Tabelle As Worksheet
Dim i As Integer
ActiveSheet.Name = "Tabelle"
Cells(2, 1).Value = "Enthaltene Blätter"
i = 3
For Each Tabelle In ActiveWorkbook.Worksheets
If Tabelle.Name <> "Tabelle" Then
Cells(i, 1).Value = Tabelle.Name
Tabelle.Hyperlinks.Add Anchor:=Cells(i, 1), _
Address:="", SubAddress:=Tabelle.Name & _
"!A1", ScreenTip:="Hyperlink klicken", _
TextToDisplay:=Tabelle.Name
i = i + 1
End If
Next Tabelle
End Sub
Anzeige