Wenn Listboxeintrag nicht gefunden
23.07.2018 13:39:42
Tim
mit folgendem Code suche ich einen Begriff in einer Listbox:
Dim i As Integer ' durchsucht die Listbox auf den jeweiligen vertrag
With ListBox1
For i = 0 To .ListCount - 1
If Not InStr(.List(i), Bearbeitungswunsch.Text) = 0 Then
.Selected(i) = True
End If
Next
End With
Sollte dieser Eintrag nicht gefunden werden, will ich gern, dass der erste Eintrag in der Listbox markiert wird, was muss ich umstellen damit das geht!?
Ich habe da an "else Listcount =0 " gedacht jedoch funktioniert das nicht.