Hallo.
Wie kann ich sämtliche Registerblätterbezeichnungen auslesen lassen und diese in eine Tabelle schreiben lassen, da ich eine Art Inhaltsverzeichnis mit Namen haben möchte.
Ovi
Sub Inhalt()
Dim sh As Worksheet
For Each sh In Worksheets
Sheets(1).Cells(65536, 1).Offset(1, 0) = sh.Name
Next sh
End Sub
Gruß ausm Pott
Udo
Korrektur
25.08.2005 13:16:45
Uduuh
Hallo,
sorry.
Sub Inhalt()
Dim sh As Worksheet
For Each sh In Worksheets
Sheets(1).Cells(65536, 1).End(xlUp).Offset(1, 0) = sh.Name
Next sh
End Sub
Gruß ausm Pott
Udo
AW: Korrektur
25.08.2005 14:32:29
Overmind
Und wie wende ich das an?
AW: Korrektur
25.08.2005 15:45:12
u_
Hallo,
in ein Modul kopieren und starten.
Gruß Geist ist geil!
Anzeige
oder für den Profi...
25.08.2005 15:52:54
u_
Hallo,
wenn die Tabellen durchnummeriert sind (Tab1, Tab2 etc):
=TEIL(ZELLE("Dateiname";INDIREKT("Tabelle" &ZEILE() &"!A1"));FINDEN("]";ZELLE("Dateiname";INDIREKT("Tabelle" &ZEILE() &"!A1")))+1;255)
Datei muss gespeichert sein.
Gruß Geist ist geil!