Zoekfunctie-code aanpassen Excel

[hoogteijling]

Hallo allemaal.
Wij gebruiken een Excel sheet om gearchiveerde projectnummers terug te zoeken.
Nu is de code op zo'n manier gemaakt dat er alleen naar het volledige nummer gezocht wordt.
Wanneer ik bijv. nummer 5092 of 5107 wil zoeken dan wordt ie niet gevonden omdat deze in het bestand opgeslagen staat als 5092_5107
Kan iemand mij helpen om de code aan te passen ?

ActiveSheet.Protect UserInterfaceOnly:=True
  If Blad1.TextBox1.Text = "" Then
    Blad1.Columns(2).AutoFilter
  Else
    Blad1.Columns(2).AutoFilter 1, Blad1.TextBox1.Text
  End If
End Sub

Groeten Marcel
Kopie van deze vraag staat op officeforum: http://office.webforums.nl/viewtopic.php?f=26&t=47229
Bekijk bijlage CD-DVD lijst.zip

 

[Haaren101]

Gebruik de Instr functie om te zien of de string in de string staat

Ron

 

[hoogteijling]

Bedankt voor je antwoord Ron maar mijn kennis van VBA gaat niet zo ver.
Kun je het uitkauwen voor me

Groeten Marcel

 

[hoogteijling]

Ik heb het zelf al opgelost.
Eigenlijk heel simpel.
Zie rode tekst.

ActiveSheet.Protect UserInterfaceOnly:=True
  If Blad1.TextBox1.Text = "" Then
    Blad1.Columns(2).AutoFilter
  Else
    Blad1.Columns(2).AutoFilter 1, [COLOR="#FF0000"]"*" & [/COLOR]Blad1.TextBox1.Text[COLOR="#FF0000"] & "*"[/COLOR]
  End If
End Sub

Groeten Marcel