Textbox Eintrag suchen Groß u. Klein egal

Sub Suchen()
With Tabelle1
For ii = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
For loEnde = 2 To 25
If Not IsEmpty(.Cells(ii, 1)) Then
If .Cells(ii, loEnde).Find(what:=txtAlleSuchen.Value, LookIn:=xlValues, lookat:= _
xlWhole) Then
ReDim Preserve arr(0 To 5, 0 To iRowU)
arr(0, iRowU) = .Cells(ii, 2)
arr(1, iRowU) = .Cells(ii, 5)
arr(2, iRowU) = .Cells(ii, 17)
arr(4, iRowU) = .Cells(ii, 25)
arr(5, iRowU) = " "
iRowU = iRowU + 1
End If
End If
Next loEnde
Next ii
End With
If iRowU > 0 Then
.lst1.Column = arr
end if
End Sub