Habe folgendes Problem: lt. untenstehenden Codeschnipsel sollte der Eintrag aus der betroffenen Zelle geschrieben weren, was ja auch geschieht. Es sollte aber der entfernte Eintrag ebenso verewigt werden.
Wie muß der Code abgeändert werden, daß er dies so macht?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sAlt As String
If Target.Row >= 14 Or Target.Row sAlt = Target.Value
'Einträge erstellen
With Worksheets("Einträge")
lRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lRow, 5).Value = IIf(Target = "", sAlt & " entfernt", Target.Value)
End With
End If
Gruß
Lorenz