Inhaltsverzeichnis
Das folgende Makro durchläuft jedes Blatt in einer Arbeitsmappe und schreibt den Registerkartennamen jedes Blatts nacheinander in ein von Ihnen ausgewähltes Blatt. Dies kann für eine schnelle Liste aller Blätter in einer Arbeitsmappe mit vielen Blättern praktisch sein.
Alle Arbeitsblätter in einer Arbeitsmappe auflisten
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 erhalten möchten. Stellen Sie sicher, dass auf der Registerkarte Ausgabe keine wichtigen Informationen vorhanden sind, da die Daten vor dem Schreiben gelöscht werden.
| 123456789101112131415 | Unter ListSheets()Dim ws als ArbeitsblattDim x As Integerx = 1Sheets("Sheet1").Range("A:A").ClearFür jedes ws in ArbeitsblätternSheets("Sheet1").Cells(x, 1) = ws.Namex = x + 1Nächstes wsEnd Sub |
