für Joseph: Blattnamen auslesen

Bild

Betrifft: für Joseph: Blattnamen auslesen
von: Walter
Geschrieben am: 10.03.2005 22:40:40
Hallo Schlaflose,
da mir Joseph bei Datei- und Blattauslesungen/Zusammenfassungen bereits mehrfach hervorragend geholfen hat, nochmals eine Bitte:
Wie lese ich innerhalb einer Datei die Blattnamen aller in dieser Datei beinhalteten Blätter aus. Zusammenfassung in einem neuen Blatt innerhalb einer Spalte.
Es dürfen / sollen aber auch gerne andere Wissende antworten ;-)
vielen Dank im Voraus
Walter

Bild

Betrifft: AW: für Joseph: Blattnamen auslesen
von: MikeS
Geschrieben am: 10.03.2005 23:41:39
so...

Sub Blattnamen_auslesen()
   Dim i%, e&
   Application.ScreenUpdating = False
   Worksheets.Add
   e = 0
   
   For i = 2 To Worksheets.Count
      With ActiveSheet
         e = e + 1
         .Cells(e, 1) = Worksheets(i).Name
      End With
   Next i
   
   Application.ScreenUpdating = True
End Sub

Ciao MikeS
Bild

Betrifft: AW: für Joseph: Blattnamen auslesen
von: Walter
Geschrieben am: 11.03.2005 00:13:53
Hy Mike,
vielen Dank, funzt prima.
Gruß
Walter
 Bild

Beiträge aus den Excel-Beispielen zum Thema "für Joseph: Blattnamen auslesen"