VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Verstreute Daten in verschiedenen Tabellen zusammenfassen

Gruppe

Allgemein

Bereich

Liste

Thema

Verstreute Daten in verschiedenen Tabellen zusammenfassen

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

    


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