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