Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Index aller Tabellenblätter erstellen"
Bei falscher Eingabe alten Wert wiederherstellen Automatisch Sicherungsdatei erstellen
Eigene Menüleiste mit Untermenüs erstellen Arbeitsmappen-History erstellen
Per VBA einen Verweis zu einer *.DLL erstellen Startansicht wiederherstellen
Aus AddIn neue Arbeitsmappe mit Code erstellen Benutzerdefinierte Funktion durch Code erstellen und löschen
Faxbestellung auf Grundlage einer Artikelliste erstellen Seitenumbruch ermitteln und Übertrag erstellen