|
Hallo Ralf
Danke das füllt funktioniert nur bedingt da nur bis Zelle 20 ausgefüllt wird,
Ich war auch nicht untätig
Bei funkt der Eintrag nun korrekt aber nur in Zelle P2
Range("P2").Select
Selection.FormulaArray = "=IF(AND(RC[-12]=""M+R"",RC[-10]=""CH"",RC[-1]>0),RC[-1],INDEX(RC[-5]:RC[-1],MIN(IF(RC[-5]:RC[-1]>0>0,COLUMN(R[-1]C[-15]:R[-1]C[-11])))))"
Habe folgendes Versucht
letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
With Range("P2:P" & letzteZeile)
Range("P2").Select
Selection.FormulaArray = "=IF(AND(RC[-12]=""M+R"",RC[-10]=""CH"",RC[-1]>0),RC[-1],INDEX(RC[-5]:RC[-1],MIN(IF(RC[-5]:RC[-1]>0>0,COLUMN(R[-1]C[-15]:R[-1]C[-11])))))"
End With
Aber das trägt die die Formel auch nur in die Zelle P2 ein, füllt aber nicht bis zur letzten Zeile aus.
Weisst Du vielleicht wo hier dann der Fehler liegen kann
Danke Peter
|