09.09.2016, 09:21
Hallo Gurus,
Excel 2010 / 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?
anbei eiine Arbeitsmappe mit Beispiel
Excel 2010 / 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?
Code:
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 eiine Arbeitsmappe mit Beispiel