Einlesen von Blattnamen und Zellwerten

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

182702    157901

Problem: In das aktive Blatt sollen die Zellinhalte der jeweiligen A1-Zellen der Folgeblätter und deren Blattnamen eingelesen werden.

StandardModule: Modul1

Sub Einlesen()
   Dim iCounter As Integer, iRow As Integer
   For iCounter = ActiveSheet.Index + 1 To Worksheets.Count
      iRow = iRow + 1
      Cells(iRow, 1) = Worksheets(iCounter).Name
      Cells(iRow, 2) = Worksheets(iCounter).Range("A1").Value
   Next iCounter
End Sub