Als Antwort auf diesen Beitrag
Hi
das stecken zwei Fehler drin.
ein Logikfehler und ein Wissensfehler
der Logikfehler ist, dass du beim Redimensionieren des Arrays die Werte nicht änderst.
hier setzt du die Anzahl der Zeilen nicht neu, sondern wieder auf den ursprünglichen Wert.
falsch:
ReDim Preserve arrFilter(1 To UBound(arrFilter, 1), 1 To UBound(arrQuell, 2))
richtigerweise müsstest du auf die Anzahl der gefilterten Werte redimensionieren und diese zählst du ja in der Variablen Treffer, dahrer
richtig:
ReDim Preserve arrFilter(1 To Treffer, 1 To UBound(arrQuell, 2))
hier würde jetzt aber der Wissensfehler zuschlagen, denn du darfst mit Redim-Preserve immer nur letzte Dimension verändern, die anderen Dimensionen müssen gleich bleiben.
dh in deinem 2-d-Array kannst du nur die Spaltenanzahl verändern, aber nicht die Zeilenzahl.
dh das Anpassen auf die Zeilenzahl könnte dann so aussehen:
ArrFilter = Worksheetfunction.Transpose(ArrFilter)
Redim Preserve ArrFilter(1 to Ubound(arrFilter 1), 1 to Treffer)
ArrFilter = Worksheetfunction.Transpose(ArrFilter)
oder du legst nach der Ermittlung der Daten ein neues Array mit den richtigen Dimensionen an und schaufelst dann die Daten per Schleife rüber.
am elegantesten wäre wahrscheinlich, wenn du die Anzahl der benötigten Zeilen vorab ermittels und ArrFilter gleich auf den richtigen Wert dimensionierst.
das ginge hier am einfachsten mit ZählenWenns (Worksheetfunction.Countif)
Redim arrFilter(1 to Worksheetfunction.Countif(WS.Columns(1), krit1, ws.Columns(4), krit2), 1 to Ubound(arrQuelle, 2))
Gruß Daniel