Gewusst wie: Auflisten aller Arbeitsblätter in Excel mit VBA
Die Arbeitsblatt-Klasse in VBA ist ein leistungsfähiges Werkzeug, das zum Erstellen, bearbeiten und Entfernen von Blättern in eine Excel-Arbeitsmappe verwendet werden kann. Jedes Arbeitsblatt-Objekt enthält eine Eigenschaft namens "Name," bezieht sich auf den Etiketten die Blattregister am unteren Rand des Excel-Fensters. Vor diesem Hintergrund erstellen Sie ein Makro oder VBA-Skript, das "durchläuft" jedes Blatt in einer Arbeitsmappe und führt ihren Namen auf einem bestimmten Zellbereich.
Anweisungen
1 Starten Sie Microsoft Excel, und öffnen Sie Ihre Arbeitsmappe.
2 Drücken Sie "Alt + F8" Öffnen Sie das Fenster "Makros". Geben Sie "GetSheetNames" im Feld "Makroname" und klicken Sie dann auf "Erstellen".
3 Geben Sie den folgenden Code in den VBA-Editor.
Sub GetSheetNames()
Dim wSheet als Arbeitsblatt
Für jede wSheet In Arbeitsblättern
On Error Resume Next
ActiveCell.Value = wSheet.Name
ActiveCell.Offset(1, 0).Select
Nächste wSheet
EndSub
4 Schließen Sie den VBA-Editor, um Ihre Arbeitsmappe zurückzugeben.
5 Markieren Sie eine Zelle in der Kalkulationstabelle. Drücken Sie "Alt + ich" dann "C" eine leere Spalte erstellen.
6 Klicken Sie auf die erste leere Zelle in der neuen Spalte.
7 Drücken Sie "Alt + F8", das Makros-Fenster wieder zu öffnen. Wählen Sie "GetSheetNames", und klicken Sie dann auf "Ausführen."
Tipps & Warnungen
- Wenn Sie keine neue Spalte für die Liste erstellen möchten, wählen Sie eine beliebige leere Zelle statt. Stellen Sie sicher, dass genügend Zellen in der Liste enthalten sind. Beispielsweise enthält die Arbeitsmappe 20 Blätter, wählen Sie eine Zelle mit 20 oder mehr leere Zellen darunter.
- Standardmäßig werden Makros für Excel deaktiviert. Um sie zu aktivieren, klicken Sie auf Microsoft Office, gehen Sie zu "Excel-Optionen" und stellen Sie sicher, dass "Show Entwicklerregisterkarte in der Multifunktionsleiste" aktiviert ist. Klicken Sie auf "OK". In einigen Fällen müssen Sie MS Excel für die Änderungen wirksam werden neu starten.