So sollte es gehen, denke ich:

Option Explicit

 

Private Sub Text1_Change()

    Dim i

    For i = 0 To List1.ListCount - 1

        If Left(List1.List(i), Len(Text1.Text)) = Text1.Text Then

            List1.ListIndex = i

            Exit Sub

        End If

    Next

    List1.ListIndex = 0

End Sub





Code eingefügt mit Syntaxhighlighter 1.9
Moderation is OK, but not to excess...



geschrieben von DaveS , 09.04.2002, 14:53 Uhr , 19 mal gelesen