Hallo Hermann,
Danke, das war es leider nicht. Ich habe mir mittlerweile was zusammengebastelt.
Nicht sehr elegant,aber es funktioniert.
Gruß
Jutta
AW: Zellen verschieben
03.06.2005 12:28:48
HermannZ
Hallo Jutta,
wäre ja nicht schlecht wenn du das Ergebniss verraten würdest, vieleicht kann das ein anderer ja auch mal brauchen.
Gruß Hermann
AW: Zellen verschieben
03.06.2005 12:33:09
Jutta
Hallo Hermann,
da hast du recht:
Sub Umbau()
Dim lgZeile As Long
Range("N1").Select
For lgZeile = Range("N8000").End(xlUp).Row To 3 Step -2
Cells(lgZeile - 1, 19) = Cells(lgZeile, 14)
Next
End Sub
...und das für jede Spalte
Gruß
Jutta