Gruppe
Allgemein
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