Name Tabellenblätter

Forumthread: Name Tabellenblätter

13.06.2003 13:56:05

Werner

Hallo Leute,

wie kann ich in einem Tabellenblatt alle Tabellenblattnamen anzeigen lassen, die diese Datei hat?

danke für die Hilfe.

Werner

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Name Tabellenblätter

13.06.2003 13:58:42

andreas e
Re: Name Tabellenblätter

13.06.2003 14:01:49

Georg

Re: Name Tabellenblätter

13.06.2003 13:58:42

andreas e

hallo werner,
wie wäre es so:
Sub inhaltsverzeichnis()
For i = 1 To Worksheets.Count
Sheets(1).Cells(i, 1).Value = Sheets(i).Name
Next
End Sub
gruß
andreas e

Re: Name Tabellenblätter

13.06.2003 14:01:49

Georg

Hallo,
ich machs hiermit:

Sub Blattlist()
Dim wks As Worksheet
Dim i As Integer
i = 1
For Each wks In ActiveWorkbook.Worksheets
ActiveWorkbook.Worksheets(1).Cells(i, 1) = wks.Name

i = i + 1
Next
End Sub

Grüsse
Georg

Forumthread: Name Tabellenblätter

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread