aanvullen van een woord

[weswillem]

Om tikfouten te voorkomen wil ik door middel van elke keer een letter toe te voegen checken of het woord voorkomt. Ben nu al ff daar mee bezig , maar kennelijk zie ik iets over het hoofd. Dat de code veelal gebruikt wordt in VB maar deze nu nodig heb in een excel-code plaats ik hem maar even hier. Bij de 1e loop krijg ik bij de V, 2 items terug en als ik daarna een r toevoeg, krijg ik wederom eerst 2 items terug die beginnen met een V en daarna degene met Vr.
Hoe is dit op te lossen dat ik niet 2x het eerste letter ziet.

Private Sub TextBox1_Change()

Dim Woord As String
Dim tmpPos As String
Dim tmpWrd As String
Dim i As Integer
Dim x As Integer

    Woord = ""
    tmpWrd = TextBox1.Text
    y = 1
    For i = 1 To Len(tmpWrd)
        tmpPos = Mid(tmpWrd, i, 1)
        If Not IsNumeric(tmpWrd) Then
            Woord = Woord & tmpPos
            TextBox1.Text = tmpWrd
            For x = 1 To 10
                If Cells(x, 1) = "" Then GoTo einde
                If Mid(Cells(x, 1), 1, i) = tmpWrd Then
                    MsgBox Cells(x, 1)
                    
                End If
                
            Next x
            y = y + 1
        End If
    Next i
einde:
  

End Sub

 

[KwarK]

Vraag verplaatst van VB.Net naar VBA