Inhaltsverzeichnis mit allen Tabellenblättern
13.03.2019 09:11:43
Dom
ich hoffe mir kann jemand helfen, denn seit gestern verzweifle ich an diesem Problem:
Und zwar möchte ich in einer Exceldatei auf dem ersten Tabellenblatt gerne ein Inhaltsverzeichnis einrichten, mit allen Tabellenblättern, die diese Datei beinhaltet. Über die Funktion "Hyperlink" geht das händisch ja ganz gut, ich hätte den Vorgang aber gerne automatisiert. Sprich, immer wenn ein neues Tabellenblatt hinzugefügt wird, soll mir dieses mit Link zum Anklicken auch auf der Übersichtsseite erscheinen.
Ich versuche seit gestern ein VBA dafür zu schreiben, dies sieht bisher so aus:
Sub Hyperlink()
' Hyperlink Makro
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
ActiveCell.FormulaR1C1 = _
"=HYPERLINK(""[Lieferantentool.xltm]Firma1!A1"")"
Worksheets("Übersicht").Cells(I + 29, 9).Select
Next I
End Sub
Ich versuche nun, den Begriff "Firma1" automatisch an den Titel des jeweiligen Tabellenblattes anzupassen, damit Excel mich immer auf das jeweilige Blatt verweist, komme aber an dem Punkt nicht weiter.
Kann mir dabei jemand helfen?
Vielen Dank schonmal im Voraus!