Verwijderen van text in bepaalde cellen

[Sacruzsa]

Hallo iedereen ,

Ik zoek een oplossing voor volgend probleem :
Als cellen C en J ingevuld zijn en er word in cell K iets ingevuld dan moeten de waarden in cell C en J verdwijnen per lijn
ik heb onderstaande formule gebruikt maar deze verwijderd alles en niet per lijn

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("K2:K17")) Is Nothing Then
Range("J2:J17").ClearContents
Range("C2:C17").ClearContents
End If
End Sub

bestand staat in bijlage

Alvast bedankt voor de hulp

 

[AHulpje]

Zo:

        Range("J" & Target.Row).ClearContents
        Range("C" & Target.Row).ClearContents

 

[HSV]

Of:

union(target.offset(,-8), target.offset(,-1)).ClearContents