Zelle kopieren, wenn andere Zelle leer gelöscht
12.06.2019 21:35:27
Peter
ich möchte den Zellinhalt von F4 nach A2 kopieren, wenn die Zelle A2 leer ist bzw. der Inhalt von A2 gelöscht wurde. Habe mit dem nachfolgenden Code rumprobiert, aber es wird bei jeder Änderung kopiert, also auch bei einer Eingabe in A2, Es soll aber nur beim Löschen von A2 der Wert aus F4 kopiert werden.
Kann mir bitte jemand den Code anpassen.
Danke. PeterWT
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
Range("F4").Select
Selection.Copy
Range("A2").Select
ActiveSheet.Paste
End If
End Sub