VBA: Spalteninhalt dynamisch verschieben
09.06.2009 18:10:04
Dom
ich möchte einen Spalteninhalt (dynamisch) um einen Faktor nach unten verschieben.
Normalerweise gibt es ja folgende Funktion
Range("D4:I4").Select
Selection.Cut Destination:=Range("D5:I5")
Range("D5:I5").Select
Da dies jedoch nicht Dynamisch ist (d.h. die Zellen sind vorher festgelegt) wollte ich dies über folgende Zeilen ändern
Range(Cells(i, 4), Cells(3353, 4)).Select
i = i + 1
Selection.Cut Destination:=Range(Cells(i, 4))
Range(Cells(i,4),Cells(3353,4)).Select
Problem ist das dabei der Zellinhalt nicht verschoben wird. Die Markierung verschiebt sich zwar, aber nicht der Inhalt.
Was muss ich ändern?
Dank euch
Dom