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:
Unter CreateHyperlinkedSheetList()
Dim ws als Arbeitsblatt
Application.ScreenUpdating = False
ActiveSheet.Range("A:A").Clear 'bestehende Liste löschen
Für jedes ws in ActiveWorkbook.Worksheets
Mit ActiveSheet.Range("A" & Rows.Count).End(xlUp)
.Offset(1).Wert = ws.Name
ActiveSheet.Hyperlinks.Add Anchor:=.Offset(1), Adresse:="", SubAddress:= _
"'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
Ende mit
Nächstes ws
Application.ScreenUpdating = True
End Sub
Kopieren Sie den obigen Code in ein Standardmodul und Sie können ihn einer Schaltfläche zuweisen, um sie jederzeit auszulösen.