Hallo
dieses Makro verwende ich bereits. nun soll aus den tabellen jeweils die Zelle C4 angefügt werden
Sub MappenInhaltsverzeichnisErstellen()
Dim Tabelle As Worksheet
Dim i As Integer
Worksheets.Add.Move before:=Worksheets(1)
ActiveSheet.Name = "Inhaltsverzeichnis"
Cells(2, 2).Value = "Enthaltene Arbeitsblätter"
i = 3
For Each Tabelle In ActiveWorkbook.Worksheets
If Tabelle.Name <> "Inhaltsverzeichnis" Then
Cells(i, 2).Value = Tabelle.Name
Tabelle.Hyperlinks.Add Anchor:=Cells(i, 2), _
Address:="", SubAddress:="'" & Tabelle.Name & "'" & _
"!A1", ScreenTip:="zum Tabellenblatt", _
TextToDisplay:=Tabelle.Name
i = i + 1
End If
Next Tabelle
End Sub
Danke
Angel