Nur sichtbare Zellen verwenden

Set rng = Worksheets("Tabelle2").Range("T4:AC1000").Cells.SpecialCells(xlCellTypeVisible).Find  _
_
(xSuche, LookAt:=xlPart, LookIn:=xlValues)
If Not rng Is Nothing Then
With Worksheets("Tabelle2")
xErste = rng.Address(False, False)
y = True
Do Until xAdresse = xErste
ReDim Preserve arr(0 To 3, 0 To iRowU)
arr(0, iRowU) = .Cells(rng.Row, 1)
arr(1, iRowU) = .Cells(rng.Row, 2)
arr(2, iRowU) = .Cells(rng.Row, 3)
arr(3, iRowU) = .Cells(rng.Row, 4)
iRowU = iRowU + 1
Set rng = .Range("T4:AC1000").FindNext(After:=rng)
xAdresse = rng.Address(False, False)
Loop
xAdresse = ""
xErste = ""
End With
End If