Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Verstreute Daten in verschiedenen Tabellen zusammenfassen

Gruppe

Liste

Problem

Wie kann ich auf mehrere Tabellen verstreute Daten in einer zusätzlichen Tabelle zeilenweise zusammenfassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Auflisten()
   Dim iCounter As Integer, iRow As Integer
   For iCounter = 3 To Worksheets.Count
      iRow = iRow + 1
      Cells(iRow, 1) = Worksheets(iCounter).Range("A1")
      Cells(iRow, 2) = Worksheets(iCounter).Range("B3")
      Cells(iRow, 3) = Worksheets(iCounter).Range("D4")
   Next iCounter
End Sub