Supportnet / Forum / Tabellenkalkulation
Namen der Blätter Drucken
Frage
Hallo
Ich habe eine Tabelle mit ca 40 Tabellenblätter.
Kann ich die Namen der Blätter irgendwie als eine Liste ausdrucken.
besten Dank im voraus
Chrigel
Antwort 1 von Guenter
Hallo,
kannst Du dieses Makro mal ausprobieren.
Es wird ein neues Datenblatt erzeugt mit den Namen und wieder gelöscht.
Es bleibt eine Leerzeile für das Temp-Datenbaltt. Wenn Du damit leben kannst, ok. Wenn nciht nochmals melden.
Gruß
Günter
kannst Du dieses Makro mal ausprobieren.
Es wird ein neues Datenblatt erzeugt mit den Namen und wieder gelöscht.
Es bleibt eine Leerzeile für das Temp-Datenbaltt. Wenn Du damit leben kannst, ok. Wenn nciht nochmals melden.
Option Explicit
Sub test()
Dim n%
Dim TabName$
Sheets.Add
ActiveSheet.Name = "Temp"
For n = 1 To Worksheets.Count
Worksheets(n).Activate
TabName = Worksheets(n).Name
Sheets("Temp").Activate
If Not TabName = "Temp" Then Cells(n, 1).Value = TabName
Next
Sheets("Temp").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Temp").Delete
End Sub
Gruß
Günter
Antwort 2 von Chrigel
Hallo Günter
Besten Dank für das Makro. Klappt wunderbar, habe die Leerzeile noch mit einer Spaltenüberschrift ergänzt.
Gruss
Chrigel
Besten Dank für das Makro. Klappt wunderbar, habe die Leerzeile noch mit einer Spaltenüberschrift ergänzt.
Gruss
Chrigel