Probleem met een zoekfunctie in Excel 2000 ten opzichten van 2007

[Krysius]

Hallo beste lezers,

ik heb een klein probleempje, en ik denk dat jullie mij daar wel bij kunnen helpen, omdat ik nogal nieuw ben met VBA, kom ik hier om jullie ervaring te raadplegen over versieverschillen.

Een maat van mij heeft een zoekfunctie voor mij geschreven in excel, het probleem is, hij draait op excel 2007 en ik draai op excel 2000. Het script geeft bij hem geen problemen, en bij mij wel. het gaat om het onderstaande script.

Dim Zoekletter As String
    Dim Results As range
    Dim c As range
    Dim ans As Variant
    If Trim(Searchbox) <> "" Then
    Zoekletter = UCase("*" & Searchbox.Text & "*")
    With ActiveSheet.Columns("B:B")
[COLOR="red"]    Set c = .Find(What:=Zoekletter, LookIn:=xlValues, _
     lookat:=xlWhole, MatchCase:=False, SearchFormat:=False)[/COLOR]
     If Not c Is Nothing Then
     c.Select
     Searchbox = ""
     Application.ScreenUpdating = False

De debugger geeft aan dat de fout bij de rode tekst staat, en dat de gebruikte naam niet herkend wordt.
Maar ik en mijn maat hebben voor de rest geen enkele clue hoe we dit bij excel 2000 op kunnen lossen.

als jullie mij kunnen helpen, dan hartstikke graag

alvast bedankt,

Bram van der Sanden

 

[Warme bakkertje]

SearchFormat was geen optie in Xl2000. Verwijder dit en het zou mi moeten lukken.

Set c = .Find(What:=Zoekletter, LookIn:=xlValues, _
     lookat:=xlWhole, MatchCase:=False)

 

[Krysius]

Hartelijk bedankt

Dit was inderdaad de boosdoener. :thumb:

Mijn dank is groot. :love:

met vriendelijke groet,

Bram van der Sanden