Suchen in einer ListBox
Timo
ich habe eine UserForm mit einer 8-spaltigen ListBox.
Diese wird mit Daten aus einem Tabellenblatt gefüllt.
Nun möchte ich die gefüllte ListBox durchsuchen.
Dazu habe ich folgenden Code hier im Forum gefunden:
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Dim liSuche As Integer, liMsg As Integer, liSuche1 As Integer
For liSuche = 0 To ListBox1.ListCount - 1
For liSuche1 = 0 To ListBox1.ColumnCount - 1
If InStr(1, ListBox1.Column(liSuche1, liSuche), TextBox1.Text) > 0 Then
ListBox1.ListIndex = liSuche
liMsg = MsgBox("Weitersuchen?", vbQuestion + vbYesNo)
If liMsg = vbNo Then Exit Sub
End If
Next
Next
End If
End Sub
1. Wie muss der Code lauten, wenn ich das Suchereignis nicht durch drücken der Entertaste, sonder durch klicken auf einen "Suchbutton" auslösen will?
2. In dem Code muss man beim Suchbegriff leider Groß- und Kleinschreibung beachten. Wie muss der Code abgeändert werden, dass beim Suchbegriff Groß- und Kleinschreibung keine Rolle spielen?
Ich hoffe, Ihr könnt mir helfen.
Danke schon mal und viele Grüße
Timo