Wenn Sie Arbeitsmappen mit identisch strukturierten Daten auf jedem Arbeitsblatt erhalten, sind Sie möglicherweise an einer Möglichkeit interessiert, die mehreren Arbeitsblätter zu einem einzigen großen Arbeitsblatt zu kombinieren.

Das Konzept für die Kondensation ist recht einfach: Sie müssen lediglich die Daten aus dem zweiten und den folgenden Arbeitsblättern in die erste leere Zeile des ersten Arbeitsblatts kopieren. Excel enthält kein Tool, mit dem Sie dies automatisch tun können, aber es ist ein großartiger Kandidat für ein Makro. Denken Sie jedoch daran, dass die Struktur jedes Arbeitsblatts, das Sie komprimieren, identisch sein sollte.

Das folgende Makro durchläuft alle Arbeitsblätter und kombiniert die Daten zu einem neuen Arbeitsblatt, das am Anfang der Arbeitsmappe hinzugefügt wird.

Sub Combine()

Dim J As Integer     Dim s As Worksheet

On Error Resume Next     Sheets(1).Select     Worksheets.Add ' add a sheet in first place     Sheets(1).Name = "Combined"



' copy headings     Sheets(2).Activate     Range("A1").EntireRow.Select     Selection.Copy Destination:=Sheets(1).Range("A1")



For Each s In ActiveWorkbook.Sheets         If s.Name <> "Combined" Then             Application.GoTo Sheets(s.Name).[a1]

Selection.CurrentRegion.Select             ' Don't copy the headings             Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select             Selection.Copy Destination:=Sheets("Combined"). _               Cells(Rows.Count, 1).End(xlUp)(2)

End If     Next End Sub

Wenn das Makro fertig ist, enthält das erste Blatt in der Arbeitsmappe mit dem Namen Kombiniert alle Daten aus den anderen Arbeitsblättern. Die anderen Arbeitsblätter bleiben unverändert.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (8884) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: