ich habe eine Listbox und möchte gern suchen, ob ein Listeneintrag bereits vorhanden ist.
Mit welchem Code-Befehl geht das ?!?
Gruß und Danke
Kay
Sub such()
Dim i as integer
Dim strGesucht as string, strMessage as string
strGesucht = "Kay"
With ListBox1
For i = .count -1 To 0 step -1
If Cstr(.List(i, 0)) = strGesucht Then Exit For
Next
End with
strMessage= IIf(i= -1,"Nix", i)
Msgbox strMessage
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen