28.01.2019, 13:31
Ist hier ganz simpel sowas gemeint?
Code:
Sub NachOben()
Rows(ActiveCell.Row).Cut
Rows(ActiveCell.Row - 1).Insert
End SubSeiten: 1 2
28.01.2019, 13:31
28.01.2019, 13:32
(28.01.2019, 13:21)WillWissen schrieb: [ -> ]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.
28.01.2019, 13:44
Ach, ich hab übersehen, dass du auch Blöcke verschieben willst. Dann auf diese Weise:
Die Variablen für die Spalten sind hier zwar nicht notwendig, aber als Hilfe für die anderen Makros :)
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 SubDie Variablen für die Spalten sind hier zwar nicht notwendig, aber als Hilfe für die anderen Makros :)
28.01.2019, 13:54
28.01.2019, 13:56
(28.01.2019, 13:44)MisterBurns schrieb: [ -> ]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!
Seiten: 1 2