Fehler beim suchen aus Listbox
11.11.2021 07:42:30
Kai
ich bastel gerade an einer Datei, die Namenskürzel generiert. Soweit klappt alle ganz gut, in der Liste stehen knapp 600 Namen, die in einer Listbox angezeigt werden.
Um schnell den passenden Namen zu finden ist eine Textbox da, in der ein Name eingegeben werden kann, um den passenden Eintrag schnell zu finden. Das klappte bisher auch gut - Die Listbox war aber nicht mit so vielen Namen "bestückt". Bei der Variante mit 600 Einträgen bekomme ich jetzt die Fehlermeldung "Überlauf (Fehler6) angezeigt. Ich denke die Funktion steigt aus, weil zu viele Namen gelistet sind. Gibt es da eine Abhilfe?
Hier der verwendete Code:
Private Sub TextBox7_Change()
Dim myTxt As String
Dim i As Byte
myTxt = UCase(TextBox7.Value) 'myText = Begriff der gesucht werden soll
For i = 0 To ListBox1.ListCount - 1 'Vom ersten bis zum letzten Eintrag in ListBox1 durchlaufen
ListBox1.Selected(i) = IIf(myTxt = ListBox1.List(i), True, False) 'Falls identischer Eintrag gefunden, markieren
Next i 'i um 1 erhöhen
End Sub
Gruß Kai
Anzeige