|
Sorry da war ein kleiner Fehler drin:
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
tab3.Range("A4:T" & letzteZ3).Copy
.Cells(letzteZ1 + 1, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
End Sub
|