With Range("P2:P" & 20) .Cells(1).FormulaLocal = "=WENN(UND(D2=""M+R"";F2=""CH"";O2>0);O2;INDEX(K2:O2;MIN(WENN(K2:O2>0;SPALTE(A1:E1)))))" .Cells(1).FormulaArray = .Formula .FillDown End With