|
Hallo Sven,
nicht so ganz. Dann mache es so:
Sub kopieren()
Dim tab1 As Worksheet, tab2 As Worksheet, tab3 As Worksheet
Dim letzteZ1 As Long, letzteZ2 As Long, letzteZ3 As Long
Set tab1 = ThisWorkbook.Sheets("Tabelle1")
Set tab2 = ThisWorkbook.Sheets("Tabelle2")
Set tab3 = ThisWorkbook.Sheets("Tabelle3")
With tab1
letzteZ1 = .Cells(Rows.Count, 1).End(xlUp).Row
letzteZ2 = tab2.Cells(Rows.Count, 1).End(xlUp).Row
tab2.Range("A4:T" & letzteZ2).Copy
.Cells(letzteZ1 + 1, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
With tab1
letzteZ1 = .Cells(Rows.Count, 1).End(xlUp).Row
letzteZ3 = tab3.Cells(Rows.Count, 1).End(xlUp).Row
tab2.Range("A4:T" & letzteZ3).Copy
.Cells(letzteZ1 + 1, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
End Sub
Solltest du vorhaben, noch mehr Tabellenblaetter kopieren zu wollen und diese durchgehend nummeriert sind (also "Tabelle1", "Tabelle2", "Tabelle3" usw.) dann koennte ich dir auch eine Moeglichkeit mit einer Schleife zeigen, wenn du willst.
Gruss Torsten
|