Copy/Paste VBA

[ralf_b]

in das codemodul des Arbeitsblattes

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.CountLarge > 1 Then Exit Sub
 
  If Not Intersect(Target, Range("B8:B20")) Is Nothing Then
    If Target.Value <> "done" Then Exit Sub
    With Cells(Target.Row, "J").Resize(1, 4)
      .Value = .Value
    End With
  End If
End Sub