VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Einlesen von Blattnamen und Zellwerten

Gruppe

Allgemein

Bereich

Arbeitsblatt

Thema

Einlesen von Blattnamen und Zellwerten

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Arbeitsblatt