zoekfunctie userform werkt niet

[AD1957]

Beste forumleden,

in de userform_zoekdebiteur kan ik op naam, debiteurennr etc. zoeken.
Per maand werkt dit goed.
Echter op het hele jaar zoeken krijg ik een foutmelding in
private sub textbox2_change()
Kan maar niet ontdekken waar de fout zit. Het vreemde is dat deze userform op een ander blad wel werkt.
Wie helpt,

Groet,
Albert Bekijk bijlage ZOEK DEBITEUR .xlsb

 

[Cobbe]

Ik krijg enkel een foutmelding bij opzoeken per maand,
opzoeken debiteuren werkt foutloos.

Heb er als bewijs een filmpje bijgedaan: https://we.tl/uv8P04CCnf

 

[AD1957]

Hoi Cobbe,
Bij mij werken de maanden goed. Neem ik het hele jaar dan krijg ik de melding
"fout 13 tijdens uitvoering
"typen komen niet met elkaar overeen

 

[Cobbe]

Kan je ook aangeven welke regel gemarkeerd wordt bij de melding?

 

[AD1957]

If InStr(LCase(Join(Application.Index(.List(), i + 1, 0))), LCase(TextBox2.Value)) = 0 Then .RemoveItem i

in textbox2_change()

 

[Cobbe]

Ik kan de fout niet reproduceren.
Je kan er tijdelijk een on error goto over zetten om eens te testen of er iets verkeerd loopt.

 

[AD1957]

even zoeken hoe dat moet

 

[AD1957]

BLijft vreemd dat de code wel werkt bij de crediteuren.

 

[AD1957]

mijn vba kennis is nog pril, hoe moet dat met "on error goto

 

[Cobbe]

Boven de Instr(.... regel zet je on error goto oeps

en voor END SUB zet je oeps: (dubbelpunt is belangrijk)

Maar doe dit in een copy van je bestand, het is niet zeker dat je direct gaat zien of en wat er misloopt.

 

[AD1957]

Heb het netjes gedaan.
er komt nu geen foutmelding bij "hele jaar"
maar de code selecteerd ook niet de debiteuren

 

[AD1957]

Na iedere maand te hebben gecontroleerd blijkt dat de maand febr. en juni dezelfde problemen opleveren.

 

[AD1957]

Zelf kan ik nergens een fout vinden. De code heb ik van Harry (HSV)
Met een beetje geluk kijkt Harry straks mee.
Groet,
Albert

 

[Cobbe]

Ja Harry zal dat wel voor u kunnen/willen oplossen,
't is moeilijk als je de fout niet kan reproduceren.

 

[AD1957]

Hallo Cobbe,
Alles werkt!!!
Waarschijnlijk lag het probleem in het niet volledig ingevulde werkblad.
Tevens stonden er nog formules in diverse cellen die een foutmelding gaven.
Nu ik eens alles netjes heb ingevuld werkt het.
Ik ga voor alle zekerheid alles nog eens volledig controleren.

Groet en dank,
Albert

 

[Cobbe]

Alweer iemand gelukkig!