|
Hallo Ralf,
Danke für den Hinweis aber das hatte ich schon versucht nur das funktioniert leider nicht.
Sub Makro1()
letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To letzteZeile
Range("P2:P" & letzteZeile).FormulaLocal = "=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,COLUMN(R[-1]C[-15]:R[-1]C[-11])))))"
Next
End Sub
Darum habe hier meine Anfrage gestellt ich habe es auch anders probiert
Sub Makro2()
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
End Sub
dieser Code läuft durch nur erzeug er keine INDEX Formel
Den dann fügt Excel folgendes eind
=@WENN(UND(D2="M+R";F2="CH";O2>0);O2;INDEX(K2:O2;MIN(WENN(@K2:O2>0;@SPALTE(A1:E1)))))
Und das sieht auch nicht wie meine Index Formel aus.
Wenn wer die Lösung hat - dann vielen Dank im voraus.
Peter
|