(filter)zoekbox werkt niet 100%

[hoogteijling]

Hallo allemaal.

Ik heb ooit m.b.v. dit forum een zoekbox in een excel-sheet gezet.
Ik dacht al die tijd dat deze box prima werkte totdat een collega mij erop wees dat een bepaald projectnummer niet goed werkte.
Als je in de zoekbox bijv. nr. 4126 intypt dan komt ie met maar 5 resultaten terug terwijl er 6 bestaan.
Cel B1856 wordt niet gevonden.
Wanneer je het filter gebruikt bovenin wordt deze wel gevonden.
Weet iemand hoe dit komt en hoe ik het op kan lossen ?

Groeten Marcel
Bekijk bijlage CD-DVD lijst.xlsm

 

[wampier]

Bij mij werkt het als je de ", Operator:=xlAnd" weghaald uit de macro. Ik weet ook niet waarom die nodig is, daar je maar 1 operator hebt.

 

[hoogteijling]

Hallo Wampier,

Wanneer ik , Operator:=xlAnd eruit haal zit nog steeds regel 1856 er niet bij wanneer ik 4126 intyp in de zoekbox.

Groeten Marcel

Met zoekbox

Met filter

 

[Warme bakkertje]

M.i. heeft het meer iets te maken met celopmaak, want als ik het nummer in betreffende cel opnieuw intik en dan het filter gebruik vindt hij deze wel.

 

[hoogteijling]

Hallo,

De oplossing was dus makkelijker dan ik dacht.
Wel jammer dat ik niet precies weet wat er nou aan de hand was met die bewuste cel.
Ik weet nu niet of de rest wel ok is.

Bedankt zover

Groeten Marcel

 

[snb]

Dit werkt:

Private Sub TextBox1_Change()
  If blad1.TextBox1.[COLOR="#FF0000"]Text [/COLOR]= "" Then
    blad1.Columns(2).AutoFilter
  Else
    blad1.Columns(2).AutoFilter 1, blad1.TextBox1.[COLOR="#FF0000"]Text[/COLOR]
  End If
End Sub

of hou het simpel met:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" Then
        Columns(2).AutoFilter 1, Target
        If Target.Value = "" And AutoFilterMode Then Columns(2).AutoFilter
    End If
End Sub

 

[hoogteijling]

Dank je SNB voor de toevoeging.
De 1e code werkt idd beter.

Weet je toevallig ook hoe ik ervoor kan zorgen dat de cursor in de textbox staat na het openen van het bestand ?
Wanneer ik het bestand nu open moet ik altijd 1 keer in de textbox klikken om de cursor daar te krijgen.

Groeten Marcel