Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

alle blattnamen anzeigen

alle blattnamen anzeigen
11.03.2004 13:35:53
der Hans
moin excel-freunde,
gibt es eine möglichkeit mit vba alle blattnamen einer datei auf einem neuen blatt darzustellen?
grüße hans

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alle blattnamen anzeigen
11.03.2004 13:46:30
Roland Hochhäuser
Hallo hans, versuch das mal:

Sub BlattAnzeigen()
Dim wks As Worksheet, i As Integer
Worksheets.Add After:=Worksheets(Worksheets.Count)
i = 1
For Each wks In Worksheets
Range("A" & i) = wks.Name
i = i + 1
Next
End Sub

Gruß Roland
AW: alle blattnamen anzeigen
11.03.2004 13:50:21
der hans
danke roland,
ich probier´s mal
cu
AW: alle blattnamen anzeigen
11.03.2004 13:48:48
y
hi Hans,
so in etwa ?

Sub Test()
Dim i As Long
For i = 1 To ThisWorkbook.Worksheets.Count
ThisWorkbook.Worksheets(1).Cells(i, 1).Value = ThisWorkbook.Worksheets(i).Name
Next
End Sub

cu Micha
AW: alle blattnamen anzeigen
11.03.2004 13:52:08
der hans
auch dir danke ich, micha
cu der hans
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige