Find Target, , xlValues, xlWhole

[Esducsafe]

@Helpers
De code om te controleren of een getal in een kolom staat werkt perfect zolang de waarde in de kolom niet uit een andere kolom bijvoorbeeld: J3 = I3 komt. Al een paar dagen probeer ik uit te zoeken waarom de code niet werkt. Wie weet hoe de formule of de waarde in kolom J aangepast moet worden. Een voorbeeld heb ik bijgevoegd.
Alvast bedankt.
Esko

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iReply As Integer


On Error Resume Next

If Not Intersect(Target, Range("B2:F10")) Is Nothing Then
If Target.Column = 2 And [J2:J10].Find(Target, , xlFormulas, xlWhole) Is Nothing Then

If Target <> 0 Then
iReply = MsgBox("Het ........is " & vbCrLf & _
".....", vbCritical, "Invoer Fout!")
Target.ClearContents
End If
....
End If

 

[exhelp]

Probeer eens

.Find(Target, , xlFormulas, xlWhole)

te vervangen door

.Find(Target, , xlValues, xlWhole)

 

[Esducsafe]

@ExHelp,
Dank voor je reactie. Zie vorige casus. Als Xlvalues ipv xlFormulas wordt gebruikt werkt de code (en Msgbericht) niet als de kolom verborgen is. Dat is precies het probleem, wat ik niet weet op te lossen. Om e.a duidelijk te maken heb ik het voorbeeld bestandje bij mijn vraag bijgevoegd. Als je idee hebt, hoe het wel kan (even testen), hoor ik dat graag.
groet,
Esko

 

[Esducsafe]

De oplossing heb ik gevonden door in de code een copy opdracht op te nemen en
vervolgens in de code de nieuwe kolomverwijzing op te nemen.
Nu nog aleen het verspringen (na enter) van de cursor.
Esko