mal wieder eine kurze Frage. Und zwar will ich aus mehreren Tabellen (Regionen in Deutschland) welche sich auf unterschiedlichen Arbeitsblättern befinden (Süd,Ost,West...) Ausschnitte kopieren und in einer Gesamtübersicht (Deutschland Gesamt)untereinander einfügen.
Zum kopieren des passenden Bereichs aus den einzelnen Tabellenblättern arbeite ich mit folgendem Code (bespielhaft BaWü) der auch funktioniert:
Option Explicit
Sub BaWü()
Dim lastCell As Long, lastColumn As Integer
Application.ScreenUpdating = False
lastCell = Sheets("BaWü").Range("D65536").End(xlUp).Row
Sheets("BaWü").Range(Cells(4, 1), Cells(lastCell, 9)).Copy
Sheets("Übersicht").Cells(Sheets("Übersicht").Range("A65536").End(xlUp).Offset(0, 0).Row, 1) _
.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Übersicht").Cells(Sheets("Übersicht").Range("A65536").End(xlUp).Offset(0, 0).Row, 1) _
.PasteSpecial Paste:=xlPasteValues
End Sub
Um die einzelnen Ausschnitte nacheinander einzufügen verwende ich diesen Code (beispielhaft mit zwei Regionen)
Sub Test()
Call Worksheets("Übersicht").Loeschen
Call Worksheets("BaWü").BaWü
Call Worksheets("Bayern").Bayern
End Sub
Wenn ich nun den Code ausführe und die einzelnen Tabellen einfüge erscheinen diese nicht untereinander sonder werden übereinander eingefügt. Ziel ist es aber die einzelnen Tabellen untereinander einzufügen.Hat vielleicht jemand eine Idee? Über Anstöße bin ich dankbar :)
Liebe Grüße
Daniel