ich habe von einem forumprofi eine gut funktionierende schleife bekommen.ich will,dass die schleife in der ersten freien zeile aktiv ist.der aktuelle stand verlangsamt die ganze aktion.
Public Sub DoubleCopy()
Dim Rows As Integer
' Range("AT65536").End(xlUp).Offset(1, 0).Activate
'ActiveCell.End(xlUp).Offset(0, 1).Activate
For Rows = 4 To 54
Cells(Rows, 47) = Cells(Rows, 12).Value
Cells(Rows, 48) = Cells(Rows, 14).Value
Cells(Rows, 49) = Cells(Rows, 16).Value
Cells(Rows, 50) = Cells(Rows, 18).Value
Cells(Rows, 51) = Cells(Rows, 20).Value
Cells(Rows, 52) = Cells(Rows, 22).Value
Cells(Rows, 53) = Cells(Rows, 24).Value
Cells(Rows, 54) = Cells(Rows, 26).Value
Cells(Rows, 55) = Cells(Rows, 28).Value
Cells(Rows, 56) = Cells(Rows, 30).Value
Cells(Rows, 57) = Cells(Rows, 32).Value
Cells(Rows, 58) = Cells(Rows, 34).Value
Cells(Rows, 59) = Cells(Rows, 36).Value
Cells(Rows, 60) = Cells(Rows, 38).Value
Cells(Rows, 61) = Cells(Rows, 40).Value
Cells(Rows, 62) = Cells(Rows, 42).Value
Cells(Rows, 63) = Cells(Rows, 44).Value
Cells(Rows, 64) = Cells(Rows, 46).Value
Next
'Range("J63").Activate
End Sub
marc