Kann mir jemand helfen
bei folgenden Code, soll es nicht den Datensatz ausschneiden, sondern kopieren, und in dem bestehendem Datenblatt Hintergrundfarbe wechseln.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim z As Long
If Target.Column <> 4 Then Exit Sub
Select Case Target.Value
Case "d"
z = Worksheets("bez").Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(Target.Row).EntireRow.Copy Destination:=Worksheets("bez").Cells(z, 1)
Worksheets("bez").Cells(z, 2).Value = Date
Rows(Target.Row).Delete
Vielen Dank
Olga