Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Einlesen von Blattnamen und Zellwerten

Gruppe

Arbeitsblatt

Problem

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

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

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