Ich möchte in einem bestehenden Tabellenblatt "Inhaltsverzeichnis" (ab Zelle A2) die Namen aller Tabellenblätter dieser Arbeitsmappe aufführen. Nach dem hinzufügen/löschen von Tabellenblätter muss ich das Verzeichnis aktualisieren.
Bei der Recherche bin ich auf diesen Code gestossen:
Dim Quelle As Workbook, Ziel As Worksheet
Set Quelle = ActiveWorkbook
Set Ziel = Workbooks.Add().Sheets(1)
For i = 1 To Quelle.Sheets.Count
Ziel.Range("A" & i) = Quelle.Sheets(i).Name
Next
Dieser erstellt mir zwar das gewünschte Verzeichnis, allerdings nicht in der bestehenden Arbeitsmappe
Vielen Dank für die Hilfe
Gruss