title image


Smiley Re: "Echtzeitsuche" in Listenfeld WIE??
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

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: