Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA: Spalteninhalt dynamisch verschieben

VBA: Spalteninhalt dynamisch verschieben
09.06.2009 18:10:04
Dom
Hallo zusammen,
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
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Spalteninhalt dynamisch verschieben
09.06.2009 21:44:43
Martin
Hallo Dom,
das geht so:

Sub Neu()
i = InputBox("Um welche Zeilenanzahl sollen die Zellen verschoben werden? (Minuszeichen  _
nach oben)", "Zeilenanzahl?")
Range(Cells(4, 4), Cells(4, 9)).Cut Destination:=Range(Cells(4 + i, 4), Cells(4 + i, 9))
End Sub


Viele Grüße
Martin

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige