Een probleem met Range.Find

[Jemp]

Heb een probleem met .Find

Mijn code ziet er momenteel alsvolgt uit:

Dim Zoekwaarde as String
Dim FindCell as Range, ZoekRange as Range

Zoekwaarde = ActiveCell.Offset(0,6).Value
Set ZoekRange = Sheets("Test").Range("Sleutel")
set FindCell = ZoekRange.Find(Zoekwaarde)

Als ik de Sub uitvoer zijn zowel de zoekwaarde als de Zoekrange correct (heb ze afgedrukt om te controleren).
De zoekwaarde bevindt zich zeker weten binnen de ZoekRange (cellen hebben de eigenschap: Tekst) en toch blijft FindCell de waarde "Nothing" geven.

Iemand een oplossing of een hint (opm: ik gebruik excel 2007)???

Groetjes
JP

 

[HSV]

Werkt prima.
Voer je de code wel uit vanaf het active werkblad waarin activecell.offset staat ?
Anders probeer eens.

Set FindCell = ZoekRange.Find(Zoekwaarde, , xlValues, xlWhole)

 

[Jemp]

Had al geprobeerd met

Set FindCell = ZoekRange.Find(Zoekwaarde, xlText, xlWhole)

maar dat werkte ook niet.
Met xlValues ipv xlText werkt het perfect.

Met dank aan HSV (Harry)

Groetjes
JP