verschieben von verbundenen Zeilen
12.12.2022 20:16:03
verbundenen
ich habe eine kleine Excel Datei in der ich mit Hilfe von Buttons eine komplette Zeile mit Inhalt und Formatierung nach "oben" oder nach "unten" verschieben kann.
Jedoch würde ich den VBA-Code gerne so anpassen, dass sich auch verbundene Zeilen verschieben lassen über die Buttons.
Es muss erst in eine Zelle geklickt werden, dessen Zeile verschoben werden soll.
Ich würde mich über Eure Hilfe freuen.
Hier eine Beispieldatei:
https://www.herber.de/bbs/user/156678.xlsm
Hier mein code:
'##########Zeile nach Oben verschieben################
Private Sub CommandButton27_Click()
Dim lngZeile As Long
lngZeile = Selection.Row
If lngZeile > 16 Then 'Grenze anpassen!!!
Rows(lngZeile).Cut
Rows(lngZeile - 1).EntireRow.Insert Shift:=xlDown
Rows(lngZeile - 1).Select
End If
End Sub
Private Sub CommandButton28_Click()
Dim lngZeile As Long
lngZeile = Selection.Row
If lngZeile > 15 Then 'Grenze anpassen!!!
Rows(lngZeile).Cut
Rows(lngZeile + 2).EntireRow.Insert Shift:=xlDown
Rows(lngZeile + 1).Select
End If
End Sub