Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: fred-neumann am September 08, 2016, 17:54:03 Nachmittag

Titel: Office 2010: Tabellen vereinen
Beitrag von: fred-neumann am September 08, 2016, 17:54:03 Nachmittag

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

Titel: Antw:Office 2010: Tabellen vereinen
Beitrag von: fred-neumann am September 09, 2016, 11:33:09 Vormittag

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