Spalteninhalte verschieben

Hallo zusammen,
ich möchte Datenspalten um jeweils eine Spalte nach rechts oder nach links verschieben!
Wenn ich nun eine Spalte bzw. eine Zelle markiert oder aktiviert ist und ein Butten Drücke (Pfeil rechts oder nach links) so sollen die Zeileninhalte um 1 Spalte nach rechts oder nach links verschoben werden!
Die Inhalte der daneben liegenden Spalten sollen dann um eben eine Spalte nach recht oder links verschoben werden! Die Spalteninhalte sind damit vertausch worden!
Dies soll ohne zusätzlichen Abfragen durchgeführt werden!
Die Zeilen 1- 6 bleiben von tauschen unberührt. Damit wird nur der Inhalt ab Zeile 6 bis letzte Zeile getauscht!
Sollen mehrere Spalten / Zellen markiert sein so werden alle markierten Zeilen im Block um 1 Spalte verschoben .
Gruß
Lemmi
P.s: Diese Funktion hat mir Daniel gesten mit Zeilen umgesetzt.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Mattias,
leider werden die Formate und die Berechnungen nicht mitgenommen!
... ich benötige es mit allen Berechnungen und Formaten!
Daniel hat mir für die Variante Zeilen verschieben folgendes gegeben!

Sub Zeilen_verschieben_nach_oben()
'verschieb die Zelleninhalte der markierten Zeile/ Zelle nach oben ; ab SpalteC
With Intersect(Selection.EntireRow, Range("C:IV"))
.Cut
.Cells(1, 1).Offset(-1, 0).Insert shift:=xlDown
Selection.Offset(-1, 0).Select
End With
End Sub

Sub Zeilen_verschieben_nach_unten()
'verschieb die Zelleninhalte der markierten Zeile/ Zelle nach unten ; ab SpalteC
With Intersect(Selection.EntireRow, Range("C:IV"))
.Cut
.Cells(1, 1).Offset(.Rows.Count + 1, 0).Insert shift:=xlDown
Selection.Offset(1, 0).Select
End With
End Sub

Kann man dies vielleicht anpassen?
Gruß
Lemmi

Sub Zeilen_verschieben_nach_links() With Intersect(Selection.EntireColum, Range("7:65536")) .Cut .Cells(1, 1).Offset(.Columns.Count + 0, 1).Insert shift:=xlDown Selection.Offset(0, 1).Select End With End Sub

Sub Spalten_verschieben_nach_links() With Intersect(Selection.EntireColum, Range("7:65536")) .Cut .Cells(1, 1).Offset(.Columns.Count + 0, 1).Insert shift:=xlDown Selection.Offset(0, 1).Select End With End Sub

Sub Zeilen_verschieben_nach_links() With Intersect(Selection.EntireColumn, Range("7:65536")) .Cut .Cells(1, 1).Offset(0, -1).Insert 'shift:=xlDown entfällt Selection.Offset(0, -1).Select End With End Sub

Sub Zeilen_verschieben_nach_rechts() With Intersect(Selection.EntireColumn, Range("7:65536")) .Cut .Cells(1, 1).Offset(.Columns.Count + 0, 1).Insert 'shift:=xlDown Selection.Offset(0, 1).Select End With End Sub

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalteninhalte verschieben

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread