Nicht so:
Worksheets(I).Range(Cells(J, 1), Cells(LetzteZeileQuelltab, 1)).Copy _Z
Destination:=Worksheets(Zieltab).Range(Cells(LetzteZeileZieltab, 16), Cells(LetzteZeileQuelltab + LetzteZeileZieltab + 1, 16))
sondern :
Worksheets(I).Range(Cells(J, 1), Cells(LetzteZeileQuelltab, 1)).Copy _
Destination:=Worksheets(Zieltab).Range(Cells(LetzteZeileZieltab, 16), Cells(LetzteZeileQuelltab + LetzteZeileZieltab + 1, 16))
LetzteZeileQuelltab + LetzteZeileZieltab
|