Auch das ist möglich, dann muss aber die Eigenschaft MultiSelect entspr. aktiviert sein.
Option Explicit
Private Sub Suchencmd_Click()
Dim strSuche As String
Dim i As Long
Dim j As Long
With ArchivLbx
.MultiSelect = fmMultiSelectMulti
strSuche = InputBox("Bitte tätigen Sie eine Eingabe", "Eingabefeld", "Ihr Eintrag", 1, 1)
If strSuche = "" Then Exit Sub
For i = 0 To .ListCount - 1
.Selected(i) = False
For j = 0 To 9
If CBool(InStr(1, IIf(IsNull(.List(i, j)), "", .List(i, j)), strSuche, vbTextCompare)) Then
.Selected(i) = True
Exit For
End If
Next
Next
End With
End Sub
|