Namen der Tabellenblätter einer Excel-Arbeitsmappe als Liste ausgeben
Sie möchten eine Liste aller Tabellenblätter in einer Arbeitsmappe erstellen? Dann verwenden Sie ein VBA-Makro. Das folgende Makro legt in der aktiven Arbeitsmappe ein neues Tabellenblatt an und listet in diesem Tabellenblatt die Namen aller Blätter untereinander auf:
Sub ListeBlaetter()
Dim Zeile As Integer
Dim Liste As Worksheet
Set Liste = ActiveWorkbook.Worksheets.Add
For Zeile = 1 To ActiveWorkbook.Worksheets.Count
Liste.Cells(Zeile, 1).Value = Worksheets(Zeile).Name
Next Zeile
End Sub
Nach dem Start erzeugt das Makro eine Liste der Tabellenblätter der aktiven Arbeitsmappen. Diese Liste befindet sich in einem neuen Tabellenblatt. Die folgende Abbildung zeigt, wie das Ergebnis aussehen kann:
Um das Makro einzugeben, drücken Sie in Excel die Tastenkombination ALT F11. Damit rufen Sie den VBA-Editor auf. Fügen Sie hier über das Kommando EINFÜGEN - MODUL ein leeres Modulblatt ein. Um das Makro zu starten, drücken Sie innerhalb von Excel die Tastenkombination ALT F8.
