....und schließlich könntest Du das ganze auch komplett im Arbeitssp. über Arrays erledigen, gibt bei gr. Datenmengen mehr Speed..
Option Explicit
Public Sub test()
Dim avntSource() As Variant, avntTarget() As Variant
Dim ialngIndex As Long
avntSource = Range(Cells(3, 3), Cells(1000, 3)).Value
avntTarget = Range(Cells(3, 1), Cells(4000, 1)).Value
For ialngIndex = 1 To UBound(avntSource, 1)
avntTarget(1 + (ialngIndex - 1) * 4, 1) = avntSource(ialngIndex, 1)
Next
Range(Cells(3, 1), Cells(4000, 1)).Value = avntTarget()
End Sub
Gruß,
|