Index aller Tabellenblätter erstellen

Bild

Betrifft: Index aller Tabellenblätter erstellen
von: Martin
Geschrieben am: 28.02.2005 09:38:42
Hallo
ich würde gerne eine Indexblatt mit allen meinen Tabellenblättern erstellen.
Ich habe eine Datei mit sehr vielen Tabellenblättern. Daher würde ich gerne
auf dem ersten Blatt eine ARt Inhaltsverzeichnis erstellen.
Kann mir jemand eine Tipp geben wie ich das mit VBA hinkriege?
Vielen Dank schon mal und Grüße
Martin

Bild

Betrifft: AW: Index aller Tabellenblätter erstellen
von: Matthias G
Geschrieben am: 28.02.2005 09:46:10
Hallo Martin,
z.B. so:
Sub IndexErstellen()
Dim i
Sheets(1).Range("A:A").ClearContents 'Löscht erstmal Spalte A
For i = 2 To Sheets.Count
Sheets(1).Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub
Gruß Matthias
Bild

Betrifft: AW: Index aller Tabellenblätter erstellen
von: KlausK
Geschrieben am: 28.02.2005 09:48:12
Hallo Martin,
aus der Recherche:
Sub Blaetter_auflisten()
Dim i As Integer
Range("A1").activate
For i = 1 To Sheets.Count
ActiveCell = Sheets(i).Name
ActiveCell.Offset(1, 0).Activate
Next i
Gruss
KlausK
Bild

Betrifft: DANKE! AW: Index aller Tabellenblätter erstellen
von: Martin
Geschrieben am: 28.02.2005 09:57:19
Hallo Mathias, hallo Klaus,
vielen Dank für eure Hilfe!
Spart mir viel Zeit.
Grüße und eine schöne Woche
Martin
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Index aller Tabellenblätter erstellen"