Office 2010: Tabellen vereinen

[fred-neumann]

Hallo Experten,
Ich habe mehrere Tabellenblätter mit Struktur- gleichen Inhalt.
Ein Makro fügt die Werte auf einem weiteren Tabellenblatt untereinander an,- oben steht die Überschrift.
Das funktioniert so wie ich das möchte.
Problem:
Wenn ich die Struktur gleichen Werte der Tabellenblätter in Tabellen ändere und mein Makro aufrufe, wird nach dem zweiten Tabellenblatt immer zum Ende der angefügten Tabelle eine leere Zeile hinzugefügt.
Kann mir jemand den Code korrigieren,- so das alles lückenlos untereinander dargestellt wird?

der Code:

Code: [Auswählen]

Sub Union()
Sheets("Teil_1").Cells(1, 1).CurrentRegion.Copy Sheets("Gesamt").Cells(1, 1)
Sheets("Teil_2").Cells(1, 1).CurrentRegion.Offset(1).Copy _
Sheets("Gesamt").Cells(Rows.Count, 1).End(xlUp).Offset(1)
Sheets("Teil_3").Cells(1, 1).CurrentRegion.Offset(1).Copy _
Sheets("Gesamt").Cells(Rows.Count, 1).End(xlUp).Offset(1)
Sheets("Teil_4").Cells(1, 1).CurrentRegion.Offset(1).Copy _
Sheets("Gesamt").Cells(Rows.Count, 1).End(xlUp).Offset(1)
End Sub

anbei noch ein einfach gehaltenes Arbeitsblatt

[fred-neumann]

... Antwort unter : http://www.clever-excel-forum.de/thread-6394.html