Textbox probleem

[Rap261]

Goedemorgen,

Ik zit met het volgende:

Wanneer ik data/tekst wil zoeken in een excel d.m.v. een tekstbox, vindt excel alleen een resultaat als de data/tekst het eerste gegeven is wat in de cel staat. Hieronder een voorbeeld:

"programmeren is een vak apart"
"Een vak apart is programmeren"

Wanneer ik "programmeren" invoer in de tekstbox wordt alleen de regel gevonden met de tekst "programmeren is een vak apart"
M.a.v. wanneer het stuk tekst dat gevonden moet worden niet aan het begin van de cel staat, wordt dit niet gevonden.

Hieronder de het script dat ik gebruik:

Private Sub CommandButton1_Click()
    Dim Zoekletter As String
    Dim Results As Range
    Dim c As Range
    Dim ans As Variant
    If Trim(TextBox1) <> "" Then
        Zoekletter = UCase(TextBox1.Text & "*")
        With ActiveSheet.Columns("A:A")
            Set c = .Find(What:=Zoekletter, LookIn:=xlValues, _
                          lookat:=xlWhole, MatchCase:=False, SearchFormat:=False)
            If Not c Is Nothing Then
                c.Select
                TextBox1 = ""
            Else
                MsgBox TextBox1.Text & " niet gevonden."
            End If
        End With
    Else
        Cells.FindNext(After:=ActiveCell).Activate
    End If
End Sub

Wie kan mij een update geven voor dit probleem?
Alvast bedankt

 

[henkhoogerbrug]

en wat gebeurt er als je dit:

Zoekletter = UCase(TextBox1.Text & "*")

wijzigt in:

Zoekletter = UCase("*" & TextBox1.Text & "*")

 

[Rap261]

Henk,

Dit is wat ik zocht. Bedankt voor je hulp
Vraag is opgelost

 

[snb]

Je had ook het argument
lookat:=xlWhole
weg kunnen laten.