habe folgendes Problem:
Ich lasse per:
Private Sub Worksheet_Activate()
'Inhaltsverzeichnis aller Tabellenblätter
'im erten Tabellenblatt ab Zeile A6 einfügen
Dim blatt As Object
Dim zeile As Double
zeile = 6
For Each blatt In Sheets
Activesheet.Cells(zeile, 1).Value = blatt.Name
zeile = zeile + 1
Next blatt
End Sub
eine Liste aller Sheets in eine Tabelle, Spalte A, ab Zeile 6 schreiben.
Nun möchte ich gerne, den Wert B8 aus jedem dieser Sheets in diese Tabelle neben den dazugehörigen Eintrag aus Spalte A schreiben.
Hat jemand ne Idee?
Gruß Oli