Makro: Zeilen/Spalten ohne Maus - per Tastenkürzel - verschieben

[MisterBurns]

Ist hier ganz simpel sowas gemeint?

Code:

Sub NachOben()
   Rows(ActiveCell.Row).Cut
   Rows(ActiveCell.Row - 1).Insert
End Sub

[ibu]

Das hat in der Regel mit der eigentlichen Excelhilfe nichts zu tun und bläht einen Thread nur unnötig auf. Eventuell wäre so eine Frage ein Beitrag fürs Plaudern.

Ist dies Deine private Ansicht oder ist das breiter Konsens hier?

Wenn das wirklich Konsens wäre, würde es mich sehr betrüben. Gerade die Bewertungen und der Vergleich verschiedener Bedienweisen sind oft extrem hilfreich um gute Lösungen für eine Aufgabe zu finden.

Aus meiner bescheidenen Sicht ist das in keiner Weise ein Plaudern.

[MisterBurns]

Ach, ich hab übersehen, dass du auch Blöcke verschieben willst. Dann auf diese Weise:

Code:

Sub ZeilenNachOben()
Dim Zerste As Long, Zletzte As Long
Dim Serste As Long, Sletzte As Long

Zerste = Selection.Cells(1).Row
Serste = Selection.Cells(1).Column
Zletzte = Selection.Cells(Selection.Cells.Count).Row
Sletzte = Selection.Cells(Selection.Cells.Count).Column

Rows(Zerste & ":" & Zletzte).Cut
Rows(Zerste - 1).Insert

End Sub

Die Variablen für die Spalten sind hier zwar nicht notwendig, aber als Hilfe für die anderen Makros :)

[WillWissen]

Hi Andreas,

https://www.clever-excel-forum.de/misc.php?action=help&hid=5

[ibu]

Dann auf diese Weise: [...]


Die Variablen für die Spalten sind hier zwar nicht notwendig, aber als Hilfe für die anderen Makros :)

Ganz herzlichen Dank :)

Klappte auf Anhieb. Sowohl für eine einzene Zeile als auch für einen Block.

Super!