In komplexen Arbeitsmappen, die viele Arbeitsblätter enthalten, ist es nicht ungewöhnlich, eine Liste der verschiedenen Arbeitsblätter zu benötigen. Sobald Sie die Liste haben, können Sie sie ausdrucken oder auf andere Weise verwenden, z. B. um ein Inhaltsverzeichnis für Ihre Arbeitsmappe zu erstellen. Das folgende Makro, GetSheets, ruft schnell die Namen der Arbeitsblätter in der aktuellen Arbeitsmappe ab. Es platziert sie im aktuellen Arbeitsblatt, beginnend bei Zelle A1 und dann abwärts.

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

Dieses Makro überschreibt alles in einer Zelle, die in der aktuellen Arbeitsmappe benötigt wird. Stellen Sie daher sicher, dass Sie in Spalte A des Arbeitsblatts nichts benötigen. Wenn Sie nichts überschreiben möchten, stellen Sie sicher, dass Sie ein neues Arbeitsblatt erstellen und dann das Makro von diesem Arbeitsblatt aus ausführen.

Sobald die Liste der Arbeitsblätter erstellt wurde, können Sie sie wie gewünscht formatieren und dann ausdrucken.

_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 (2216) 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:

Drucken einer Arbeitsblattliste.