Private Sub Suchencmd_Click()
Dim strSuche As String
Dim blnGefunden As Boolean
Dim i As Long
Dim j As Long
With ArchivLbx
strSuche = InputBox("Bitte tätigen Sie eine Eingabe", "Eingabefeld", "Ihr Eintrag", 1, 1)
blnGefunden = False
For i = 0 To .ListCount - 1
For j = 0 To 9
If CBool(InStr(1, IIf(IsNull(.List(i, j)), "", .List(i, j)), strSuche, vbTextCompare)) Then
.ListIndex = i
blnGefunden = True
Exit For
End If
Next
If blnGefunden Then Exit For
Next
End With
End Sub