Inhaltsverzeichnis
08.03.2003 23:39:32
TueTe26
ich benötige ein Inhaltsverzeichnis aller Tabellenblätter, die in der Arbeitsmappe vorhanden sind (Namen untereinander in einer Spalte eines Arbeitsblattes aufgeführt). In der Spalte daneben soll jeweils ein bestimmter Wert des jeweiligen Tabellenblattes (z.B. Zelle A10) aufgeführt sein.
In der nächsten Spalte wieder eine wert aus dem jeweilen Tabellenblatt z.B. Zelle A6 und dann Zelle D3.
Habe dazu folgendes gefunden:
Sub Blattlist()
Dim wks As Worksheet
Dim i As Integer
i = 1
For Each wks In ActiveWorkbook.Worksheets
ActiveWorkbook.Worksheets(1).Cells(i, 1) = wks.Name
ActiveWorkbook.Worksheets(1).Cells(i, 2) = wks.Cells(10, 1)
i = i + 1
Next
End Sub
Aber wie binde ich in dort Zelle A6 und Zelle D3 mit ein ?
Weiß dazufällig jemand einen Rat ?
Mfg TueTe