Wie wäre es mit einer Liste von Blättern, die jeweils mit ihrem jeweiligen Blattnamen in der Arbeitsmappe verlinkt sind? Nun, dies kann mit dem folgenden Code erfolgen – Sub CreateHyperlinkedSheetList ()

Dim ws As Worksheet Application.ScreenUpdating = False ActiveSheet.Range („A: A“). Löschen Sie die vorhandene Liste für jedes ws in ActiveWorkbook.Worksheets mit ActiveSheet.Range („A“ & Rows.Count) .End (xlUp)