Hallo zusammen,
ich bräuchte bitte eure Hilfe.
ich suche in einer Listbox ,über eine Textbox nach Daten. ich habe damals einen Code bekommen der auch super funktioniert...
Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Dim i As Integer, ii As Integer
Dim vntList, strTxt As String, arrSelected()
strTxt = LCase(TextBox4)
vntList = ListBox1.List
ReDim arrSelected(ListBox1.ListCount - 1)
For i = 0 To ListBox1.ListCount - 1
For ii = 0 To ListBox1.ColumnCount - 1
arrSelected(i) = InStr(LCase(vntList(i, ii)), strTxt) > 0
If arrSelected(i) Then Exit For
Next
Next
With ListBox1
For i = 0 To .ListCount - 1
.Selected(i) = arrSelected(i)
.TopIndex = .ListIndex
Next
End With
End If
End Sub
Wenn es eine Übereinstimmung gibt, wird mir die Zeile in der Listbox auch markiert...
jetzt zu meinem Problem oder zur Frage..
Wenn die Textbox leer ist und ich die Eingabetaste drücke, laufen 2600 Zeilen durch die Listbox und die letzte Zeile wird markiert. wie kann ich das lösen? wenn die textbox leer ist und ich dann " ausversehen" Enter drücke, soll eigentlich nichts passieren.
dachte an if textbox4.text="" then exit sub.
danke für eure Hilfe im vorraus.