ich möchte gerne in Tabelle1 nach einem Eintrag (Zahl oder Text) suchen.
Groß und Kleinschreibung soll egal sein.
Hier mein Ansatz.
Danke!
Schönen Tag noch.
Gruß
Ludmila
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