Inhaltsverzeichnis verlinken
Fred
Ich habe hier einen Code gefunden der Prima für mein Projekt ist. Und hoffe mir kann jemand helfen Ihn zu bearbeiten. Der Code schreibt in Zeile I alle Namen der Tabellenreiter. Ist es Möglich das er nach 30 Namen auf die nächste Zeile umspringt also J und dann wieder 30 usw. und was mir auch sehr helfen würde, wenn er die Namen auch verlinken könnte zu den Sheets so das ich nur den Namen anklickenmuss und im betreffenden Sheet bin. Ich hoffe das das geht und Ihr mir helfen könnt.
Vielen Dank für Eure Hilfe
Fred
Sub Inhaltsverzeichnis_einfügen()
'Inhaltsverzeichnis aller Tabellenblätter
'im erten Tabellenblatt ab Zeile I1 einfügen
Dim blatt As Object
Dim zeile As Double
zeile = 1
For Each blatt In Sheets
ActiveSheet.Cells(zeile, 9).Value = blatt.Name
zeile = zeile + 1
Next blatt
End Sub