VBA – Makro zum Auflisten aller Blätter in einer Arbeitsmappe

Das folgende Makro durchläuft alle Blätter einer Arbeitsmappe in einer Schleife und schreibt den Registerkartennamen jedes Blattes der Reihe nach in ein von Ihnen gewähltes Blatt. Dies könnte bei die Erstellung einer schnellen Liste aller Blätter in einer Arbeitsmappe mit vielen Blättern praktisch sein.

Auflisten aller Arbeitsblätter in einer Arbeitsmappe

Um das Makro zu verwenden, ersetzen Sie einfach das Wort Sheet1 (es erscheint zweimal) im Code durch den Namen der Registerkarte, auf der Sie die Ergebnisse haben möchten. Vergewissern Sie sich, dass sich auf der Ausgaberegisterkarte keine wichtigen Informationen befinden, da das Makro die Daten löscht, bevor es in sie hineinschreibt.

Sub BlaetterAuflisten()

Dim ws As Worksheet
Dim x As Integer

x = 1

Sheets("Sheet1").Range("A:A").Clear

For Each ws In Worksheets
     Sheets("Sheet1").Cells(x, 1) = ws.Name
     x = x + 1
Next ws

End Sub

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!


Learn More!