Als Antwort auf diesen Beitrag
Hallo Daniel,
danke für die Rückmeldung.
Bei
ReDim Preserve arrFilter(1 To Treffer, 1 To UBound(arrQuell, 2))
erhalte ich "Außerhalb des gültigen Bereichs" und bei
Redim arrFilter(1 to Worksheetfunction.Countif(WS.Columns(1), krit1, ws.Columns(4), krit2), 1 to Ubound(arrQuelle, 2))
falsche Anzahl an Argumenten...
Schaue später nochmal rein.
Gruß
Chris