VBA automatische celllen legen

[joeppaumen]

Beste,

Ik vroeg mij af of iemand weet hoe het onderstaande gerealiseerd kan worden met behulp van VBA in excel.
Ik maak gebruik van 2 cellen waarvan er telkens maar 1 gevuld mag zijn en telkens de laatste invoer moet blijven staan

Oftewel, als cel A1 ingevuld wordt moet cel A2 leeg gemaakt worden en als cel A2 ingevuld wordt moet cel A1 leeg gemaakt worden. Ik hoor het graag als iemand hiervoor de code weet!

Groeten

 

[Niels28]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:E2")) Is Nothing Then
    If Target.Row = 1 Then
        If Target.Value <> "" Then Target.Offset(1, 0).ClearContents
    End If
    If Target.Row = 2 Then
        If Target.Value <> "" Then Target.Offset(-1, 0).ClearContents
    End If
End If
End Sub

Niels