Supportnet Computer
Planet of Tech

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.

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