Wie muss ich die Formel anpassen, wenn es in der einten Spalte eine Formel hat, und ich dort in der zweiten Tabelle nur den Wert haben möchte.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zeile As Long
Set Target = Intersect(Target, Range("J5:J1000"))
If Target Is Nothing Then Exit Sub
If Target = "Done" Then
Zeile = Target.Row
Range(Cells(Zeile, 1), Cells(Zeile, 12)).Copy _
Destination:=Sheets("Erledigte").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
End Sub