Gruppe
Allgemein
Problem
Wie kann ich auf mehrere Tabellen verstreute Daten in einer zusätzlichen Tabelle zeilenweise zusammenfassen?
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