Excel 2003 - Zeileninhalt 20 mal tauschen - VBA ???

[chris-ka]

Hallo Angelina,

Code:

Sub ang()
Range("Dw1:Fs20").Copy Range("DW22")
'call ....für ersten Teil
For i = 1 To 19
    Range("Dw22:Fs22").Copy Range("DW" & 22 + i)
'Call .....für die restlichen Teile
Next
End Sub

[Angelina]

hallo @,

so hat etwas gedauert.

Danke nochmals an Chris und Stefan

Ich habe nun den Vorschlag von Stefan übernommen.

LG
Angelina