Alle Sheets auflisten
Ausgangslage - Was tut dieser Code-Schnipsel?
Folgend finden Sie zwei Varianten zur Auflistung aller Arbeitsblätter in der aktuell geöffneten Arbeitsmappe:
a) Erstellt ein neues Arbeitsblatt und listet dort alle vorhandenen Arbeitsblätter auf.
b) Schreibt alle Arbeitsblätter an die aktuelle Cursorposition nach unten fort.
Achtung: Daten unterhalb der selektierten Zelle werden überschrieben!
Der Quelltext
Option Explicit
Option Compare Text
' Original-Quelltext unter: https://www.online-vba.de/alle-sheets-auflisten
' Express-Hilfe für VBA unter https://www.online-vba.de/vba-expresshilfe
' Es gelten die Nutzungsbedingungen von Online-VBA.de
Public Sub OVBAde_Alle_Arbeitblaetter_auflisten_neues_Blatt()
Dim z As Long, i As Long
ActiveWorkbook.Sheets.Add
Cells(1, 1) = "Arbeitsblätter in dieser Arbeitsmappe"
z = 2
For i = 1 To Sheets.Count
Cells(z, 1) = Sheets(i).Name
z = z + 1
Next i
End Sub
Public Sub OVBAde_Alle_Arbeitblaetter_auflisten_an_Cursorposi()
Dim z As Long, s As Long, i As Long
s = Selection.Column
z = Selection.Row
Cells(z, s) = "Arbeitsblätter in dieser Arbeitsmappe"
z = z + 1
For i = 1 To Sheets.Count
Cells(z, s) = Sheets(i).Name
z = z + 1
Next i
End Sub
Anmerkungen und Hinweise
Achtung: Daten unterhalb der selektierten Zelle werden überschrieben!
Dieser Codeschnipsel wurde geschrieben von Marc Wershoven im Jahr 2013.
Die Nutzung erfolgt auf eigene Gefahr.
Bitte denken Sie immer zuerst an eine ausreichende Datensicherung.
Wir können keinen kostenlosen Support anbieten.
Es gelten unsere Nutzungsbedingungen.
