Alle Blätter auflisten
10.07.2014 12:22:02
Andreas
Hallo Excelprofis,
habe im Netz folgenden Code gefunden, mit dem alle Blätter einer Mappe in einem neuen Blatt aufgelistet werden.
Wie müsste der Code aussehen, wenn die Auflistung in ein schon vorhandenes Blatt (Auflistung) ab Zelle A3 eingetragen werden soll? Die Blätter "Auflistung", "Ausfüllhilfe" und "Blatt 01" sollen aber nicht mit aufgelistet werden.
Sub ZeigeTabellenblaetter()
Dim Zeile As Long
Dim Blatt As Worksheet
Dim Neublatt As Worksheet
Set Neublatt = ActiveWorkbook.Worksheets.Add
Zeile = 1
For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.Name <> Neublatt.Name Then
Neublatt.Cells(Zeile, 1) = Blatt.Name
Zeile = Zeile + 1
End If
Next Blatt
End Sub
Danke fürs lesen und die Hilfe!
mfg, Andreas