Zeile in Archiv kopieren / Werte löschen
03.03.2021 16:29:49
André
Ich möchte aus einem Arbeitsblatt eine Zeile in ein anderes Arbeitsblatt (erste leere Zeile) kopieren und anschließend die Werte in der Originalzeile löschen (nicht alles, Spalte 1&2 sollen erhalten bleiben).
Ich habe einen Ansatz, bei dem die Zeile kopiert wird und anschließend die Originalzeile gelö _ scht wird.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
If Target.Row > 2 And Target.Column = 14 Then
With Worksheets("Archiv") ' Zieltabelle
Rows(Target.Row).Copy .Cells(.Rows.Count, 10).End(xlUp).Offset(1, -9)
Rows(Target.Row).Delete
End With
End If
End Sub
Die Zeile "Rows(Target.Row).Delete" müßte dann abgeändert werden, so daß nur im Bereich von Spalte C bis Spalte N die Werte gelöscht werden.
Wer kann mir helfen ?
Vielen Dank im Voraus.
André
Anzeige