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"