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
, 18 mal gelesen