Makro zum Auslesen der Namen der Tabellenblätter

Computer: Software & Programmierung Office Software
1

Moin zusammen,

ich hänge gerade beim Erstellen eines Makros, welches mir die Namen aller Tabellenblätter (inkl. Diagramme) ausliest und auf ein bestimmtes Tabellenblatt in die Zellen schreibt.
Hat jemand zufällig soetwas parat?
Danke und Gruß

slam

2

ich hänge gerade beim Erstellen eines Makros, welches mir die
Namen aller Tabellenblätter (inkl. Diagramme) ausliest und auf
ein bestimmtes Tabellenblatt in die Zellen schreibt.
Hat jemand zufällig soetwas parat?

Remoin Slam,

Sub tt()
Dim Sh As Long, Zei As Long
Worksheets.Add after:=Sheets(Sheets.Count)
For Sh = 1 To Sheets.Count - 1
 Zei = Zei + 1
 Cells(Zei, 1) = TypeName(Sheets(Sh))
 Cells(Zei, 2) = Sheets(Sh).Name
Next Sh
End Sub

Gruß
Reinhard

3

statt

Zei = Zei + 1 könnte man auch gleich die Variable „Sh“ als Zeilennummer benutzen (vorausgesetzt er fängt bei „1“ an (oder „Sh + …“ falls eine größere Zeilenzahl)

LG Tobias

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]