alle blattnamen anzeigen

Forumthread: alle blattnamen anzeigen
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: alle blattnamen anzeigen

11.03.2004 14: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

AW: alle blattnamen anzeigen

11.03.2004 14:46:30

Roland Hochhäuser
AW: alle blattnamen anzeigen

11.03.2004 14:50:21

der hans
AW: alle blattnamen anzeigen

11.03.2004 14:48:48

y
AW: alle blattnamen anzeigen

11.03.2004 14:52:08

der hans

AW: alle blattnamen anzeigen

11.03.2004 14: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 14:50:21

der hans

danke roland,
ich probier´s mal
cu

AW: alle blattnamen anzeigen

11.03.2004 14:48:48

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 14:52:08

der hans

auch dir danke ich, micha
cu der hans

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!