Wenn eine Arbeitsmappe eine sehr große Anzahl von Arbeitsblättern enthält, möchten Sie möglicherweise die Namen dieser Arbeitsblätter abrufen und dann in ein eigenes Arbeitsblatt einfügen. Beispielsweise möchten Sie sie möglicherweise an einem Ort haben, damit Sie sie in einem Inhaltsverzeichnis oder auf andere Weise verwenden können. Das folgende Makro, GetSheets, ruft schnell die Namen der Arbeitsblätter in der aktuellen Arbeitsmappe ab und fügt sie in die aktuelle Arbeitsmappe ein, beginnend mit der aktuell ausgewählten Zelle.

Sub GetSheets()

Dim w As Worksheet     Dim iRow As Integer     Dim iCol As Integer

iRow = Selection.Row     iCol = Selection.Column     For Each w in Worksheets         Cells(iRow, iCol) = w.Name         iRow = iRow + 1     Next w End Sub

Wenn Sie ein tatsächliches Inhaltsverzeichnis erstellen möchten, in dem die Blattnamen tatsächlich Hyperlinks zu den Arbeitsblättern sind, können Sie das Makro folgendermaßen ändern:

Sub MakeTOC()

Dim w As Worksheet     Dim iRow As Integer     Dim iCol As Integer     Dim sTemp As String

iRow = Selection.Row     iCol = Selection.Column     For Each w in Worksheets         Cells(iRow, iCol) = w.Name         sTemp = "'" & w.Name & "'!A1"

ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow, iCol), _           Address:="", SubAddress:=sTemp, TextToDisplay:=w.Name         iRow = iRow + 1     Next w End Sub

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (11679) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.

Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier:

Arbeitsblattnamen abrufen.