Inhaltsverzeichnis
07.05.2007 08:46:31
Ernst
Der untenstehende Code erstellt ein Inhaltsverzeichniss aller Tabellenblätter. Könnte mir jemand helfen, den Code so anzupassen, dass nur die eingeblendeten Tabellenblätter im Inhaltsverzeichnis erscheinen?
Für eine Hilfe bin ich dankbar
mfg
Ernst Dunkel
Public Sub Inhaltsverzeichnis_einfügen()
'Inhaltsverzeichnis aller Tabellenblätter
'im erten Tabellenblatt ab Zeile A1 einfügen
Dim blatt As Object
Dim zeile As Double
zeile = 1
For Each blatt In Sheets
ActiveSheet.Cells(zeile, 1).Value = blatt.Name
zeile = zeile + 1
Next blatt
End Sub
Anzeige