Zellen verschieben / Zeilen löschen
15.07.2021 12:29:06
Manfred
ich versuche gerade zwei Makros zu erstellen, habe jedoch leider keinerlei Ahnung von der Materie...
1.) Es sollen unterhalb einer aktiven Zelle 32 Zeilen komplett gelöscht werden. Danach soll der Cursor um 30 Zellen nach unten springen und den Vorgang wiederholen bis er am Tabellenende angekommen ist (kann das Makro das erkennen?)
2.) Das zweite Makro soll die Zelle unterhalb der aktiven ausschneiden und um drei Zellen nach rechts und eine nach oben verschieben. Dann eins nach rechts springen und denselben Vorgang wiederholen. das ganze dreimal. Danach drei Zellen nach unten und den o.g. Vorgang wiederholen. Das ganze wieder bis zum Ende der Tabelle.
Hier habe ich schon mal woanders was rauskopiert, es funktioniert jedoch nur die erste Verschiebung. Danach erscheint Fehler 400.
Zur besseren Veranschaulichung:
A26->D25
B26->E25
C26->F25
A29->D28
B29->E28
C29->F28
und so weiter
bisher habe ich dies hier:
Sub verschieben()
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
Selection.Cut Destination:=Cells(ActiveCell.Row - 1, ActiveCell.Column + 3)
Cells(ActiveCell.Offset(0, 1).Select, ActiveCell.Column).Select
Selection.Cut Destination:=Cells(ActiveCell.Row - 1, ActiveCell.Column + 3)
Cells(ActiveCell.Offset(0, 1).Select, ActiveCell.Column).Select
Selection.Cut Destination:=Cells(ActiveCell.Row - 1, ActiveCell.Column + 3)
End Sub