Hallo Ralf
Deine Version läuft zwar durch das tut meine
letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To letzteZeile
Range("P2:P" & letzteZeile).FormulaLocal = "=WENN(UND(D2=""M+R"";F2=""CH"";O2>0);O2;INDEX(K2:O2;MIN(WENN(K2:O2>0;SPALTE(A1:E1)))))"
Next
auch deine ist natürlich kürzer, das Problem ist nur das es keine Ergebins gibt, schuld daran sind diese Zeichen @ und das die Formel nicht nur die Schleifenklammern (Matrix) abgeschlossen wird.
=@WENN(UND(D2="M+R";F2="CH";O2>0);O2;INDEX(K2:O2;MIN(WENN(@K2:O2>0;@SPALTE(A1:E1)))))
Wenn man dies mit den Matrixklmmern schliesst funktioniert die Formel auch nicht.
Nun ev. hat doch noch wer eine Lösung
Danke Peter
|