Microsoft Excel

Herbers Excel/VBA-Archiv

Liste aller Tabellenblätter

Betrifft: Liste aller Tabellenblätter von: Ines
Geschrieben am: 07.09.2004 09:04:44

Guten Morgen!

Ich habe eine Arbeitsmappe mit sehr vielen Tabellenblättern.
Nun möchte ich eine Liste mit den Namen der ganzen Tabellenblätter - lediglich zur Übersicht.
Gibts da zb ein Makro, das mir so eine Liste erstellt?

Wär euch dankbar!
Liebe Grüße
Ines

  


Betrifft: AW: Liste aller Tabellenblätter von: andreas e
Geschrieben am: 07.09.2004 09:08:11

Hallo Ines,
dieses Makro erstellt ein neues Blatt und listet alle vorhandenen Tabellen und hyperlinkt diese dann

Sub MappenInhaltZusammenstellen()
Dim Tabelle As Worksheet
Dim i As Integer
Worksheets.Add.Move before:=Worksheets(1)
ActiveSheet.Name = "Inhalt"
Cells(2, 2).Value = "Enthaltene Blätter"
i = 3
For Each Tabelle In ActiveWorkbook.Worksheets
If Tabelle.Name <> "Inhalt" Then
Cells(i, 2).Value = Tabelle.Name
Tabelle.Hyperlinks.Add Anchor:=Cells(i, 2), _
Address:="", SubAddress:=Tabelle.Name & _
"!A1", ScreenTip:="Hyperlink klicken", _
TextToDisplay:=Tabelle.Name
i = i + 1
End If
Next Tabelle
End Sub


gruß
andreas e
http://www.skripteundaufgaben.de


  


Betrifft: AW: Liste aller Tabellenblätter von: ypsilon
Geschrieben am: 07.09.2004 09:08:15

hi Ines,

Sub tabellen()
For i = 1 To Worksheets.Count
Sheets("Tabelle1").Cells(i, 1) = Worksheets(i).Name
Next i
End Sub


cu Micha


  


Betrifft: AW: Liste aller Tabellenblätter von: Dr.
Geschrieben am: 07.09.2004 09:08:30

Sub liste()
for i=1 to sheets.count
Cells(i,1).value=sheets(i).name
next i
End Sub



  


Betrifft: AW: Liste aller Tabellenblätter von: Ines
Geschrieben am: 07.09.2004 09:14:49

WOW!!
Ich danke euch, ihr flinken Experten!!!

Ines