Blätter auflisten
24.06.2017 00:19:38
Walter
Hallo Excel Freunde,
per Makro liste ich die Tabellenblätter auf,
geht das auch mit einer Formel?
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
Gruß Walter
Anzeige