Text zoeken met find

[harolda1980]

Ik krijg nu een foutmelding in deze lijn code terwijl met getallen werkt hij wel.
En zelfs nadat ik XLtext heb ingevuld ipv XLvalues.

De exacte melding is dat de typen niet met elkaar overeenkomen.

Set rFoundCell = Rapportfile.Sheets(2).Columns(5).Find(What:=B_Merk, After:=rFoundCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

 

[Elsendoorn2134]

Harolda1980

Wat is het type van rFoundCell, als deze een getal-type is dan kan deze natuurlijk geen tekst bevatten.

Veel Succes.