Zoekactie via Programmacode: niet, via Ctrl+F: wel

[nonono]

Zoeken naar een waarde in kolom code in een werkblad wordt niet uitgevoerd met een zoekopdracht via de opdrachtknop. Dit lukt wel voor een produktnaam.
In de programmacode is de zoekactie: SearchOrder:=xlByColums
De kolom “Code” bevat zowel numerieke als niet-numerieke waarden. Geen van de ingevoerde waarden in de zoekopdracht levert een resultaat op.

Wordt met Ctrl+F een waarde ingegeven voor de code (of een gedeelte ervan), dan levert het wel een resultaat op.

Wat is er mis in de programmacode onder de opdrachtknop?

Groet Nono

Bekijk bijlage Produkt.xls

 

[wiki]

ik krijg de volgende melding als ik de bijlage probeer te openene.

Ongeldig(e) Bijlage opgegeven. Neem contact op met de webmaster als je een geldige koppeling hebt gevolgd.

 

[nonono]

Sorry.
Nu juiste bijlage.

 

[Warme bakkertje]

Je moet dan ook wel in de juiste kolom zoeken anders geeft lAant 0 weer en wordt de procedure gestopt.

lAant = WorksheetFunction.CountIf(Columns([COLOR="red"]1[/COLOR]), "*" & strfind & "*")
 If lAant = 0 Then Exit Sub

 

[nonono]

Ja, dit heb ik over het hoofd gezien.
Ctrl+F zoekt dus over alle kolommen oftewel het gehele werkblad.
Is de code dan uit te breiden over meerdere kolommen of om te zetten naar het gehele werkblad?

 

[Cobbe]

Hoop dat ik het goed heb aangepast.

Cobbe

 

[nonono]

Inderdaad, zo kun je over meerdere kolommen zoeken.
Bedankt voor de oplossing.

Groet Nono