wer kann mir zu dem eingestellten beispiel ein makro schreiben?
https://www.herber.de/bbs/user/37958.xls
gruss achim h
Sub KopierenBisEnde()
Dim lzD As Integer
Dim lzB As Integer
lzD = Cells(65536, 3).End(xlUp).Row
lzB = Cells(65536, 2).End(xlUp).Row
Range(Cells(lzD, 3), Cells(lzD, 14)).Copy Destination:=Range(Cells(lzD + 1, 3), Cells(lzB, 3))
End Sub