Copy anstelle Cut Destination
07.02.2021 23:11:26
Martina
ich bin gerade etwas überfordert und komm nicht weiter. Ich schaffe es einfach nicht den Code so umzuschreiben das Zeilen nicht ausgeschnitten sondern nur kopiert werde.
Aktuell ist es so, dass leere Zeilen gefunden werden, die unteren Zeilen ausgeschnitten (Cut Destination) und denn in die freie Zeile kopiert werden. Das Problem ist das Ausschneiden! Es sollen nur die Inhalte kopiert, in die leere Zeile eingefügt und in der kopierten Zeile sollen die Inhalte gelöscht werden. Sodass Rahmen, Farben und Formeln immer an Ort und stelle bleiben. Ich komm mit Copy, ClearContents, Paste, CutCopymode... nicht weiter...
Bin etwas verzweifelt.
Vielleicht kann mit jemand helfen.
Private Sub CommandButton1_Click()
Dim WsZiel As Worksheet
Dim wsQuelle As Worksheet
Dim i As Long
Dim j As Long
Set wsQuelle = ThisWorkbook.Worksheets("Tabelle1")
Set WsZiel = wsQuelle.Parent.Worksheets("Tabelle1")
With wsQuelle
i = 1
Do While i '.Cells(i, 2).PasteSpecial Paste:=xlValues
'Application.CutCopyMode = False
Danke an alle.
Anzeige