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 ab Zelle A1 in die erste Spalte der aktuellen Arbeitsmappe ein.

Sub GetSheets()

Dim J As Integer     Dim NumSheets As Integer

NumSheets = Sheets.Count     For J = 1 To NumSheets         Cells(J, 1) = Sheets(J).Name     Next J 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 (2274) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Arbeitsblattnamen abrufen.