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

Written by

Editorial Team

Reviewed by

Steve Rynearson

Translated by

Zakarya El Oirzadi

Last updated on August 22, 2022

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-Programmierung leicht gemacht

Hören Sie auf, online nach VBA-Code zu suchen. Erfahren Sie mehr über AutoMacro – einen VBA Code Builder, der es Anfängern ermöglicht, Prozeduren von Grund auf mit minimalen Programmierkenntnissen und mit vielen zeitsparenden Funktionen für alle Benutzer zu programmieren!

automacro uebersicht for each ws in worksheets

Mehr Erfahren!

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!