|
Hallo zusammen,
ich benötige diese kranke Formel als VBA Code:
=WENN(M17="";"";WENN(UND(B17=111000;M17<0);"M15";WENN(UND(B17=111000;M17>0);"F5";WENN(UND(B17=115000;M17<0);"M15";WENN(UND(B17=115000;M17>0);"F5";WENN(UND(B17=150000;M17<0);"M16";WENN(UND(B17=150000;M17>0);"F6";WENN(UND(B17=155000;M17<0);"M16";WENN(UND(B17=155000;M17>0);"F6";WENN(UND(B17=194000;M17<0);"M17";WENN(UND(B17=194000;M17>0);"F7";WENN(UND(B17=196000;M17<0);"M18";WENN(UND(B17=196000;M17>0);"F12";WENN(UND(B17=197000;M17<0);"X1";WENN(UND(B17=197000;M17>0);"X2";WENN(UND(B17=205000;M17<0);"F16";WENN(UND(B17=205000;M17>0);"M4";WENN(UND(B17=213000;M17<0);"F16";WENN(UND(B17=213000;M17>0);"M11";WENN(UND(B17=220000;M17<0);"F16";WENN(UND(B17=220000;M17>0);"M12";WENN(UND(B17=228000;M17<0);"F17";WENN(UND(B17=228000;M17>0);"M7";WENN(UND(B17=240000;M17<0);"F17";WENN(UND(B17=240000;M17>0);"M7";WENN(UND(B17=283000;M17<0);"F12";WENN(UND(B17=283000;M17>0);"M18";"")))))))))))))))))))))))))))
Folgendes Ergebnis kam beim Recorder:
Range("N17").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]="""","""",IF(AND(RC[-12]=111000,RC[-1]<0),""M15"",IF(AND(RC[-12]=111000,RC[-1]>0),""F5"",IF(AND(RC[-12]=115000,RC[-1]<0),""M15"",IF(AND(RC[-12]=115000,RC[-1]>0),""F5"",IF(AND(RC[-12]=150000,RC[-1]<0),""M16"",IF(AND(RC[-12]=150000,RC[-1]>0),""F6"",IF(AND(RC[-12]=155000,RC[-1]<0),""M16"",IF(AND(RC[-12]=155000,RC[-1]>0),""F6"",IF(AND(RC[-12]=194000,RC[-1]<0)" & _
",IF(AND(RC[-12]=194000,RC[-1]>0),""F7"",IF(AND(RC[-12]=196000,RC[-1]<0),""M18"",IF(AND(RC[-12]=196000,RC[-1]>0),""F12"",IF(AND(RC[-12]=197000,RC[-1]<0),""X1"",IF(AND(RC[-12]=197000,RC[-1]>0),""X2"",IF(AND(RC[-12]=205000,RC[-1]<0),""F16"",IF(AND(RC[-12]=205000,RC[-1]>0),""M4"",IF(AND(RC[-12]=213000,RC[-1]<0),""F16"",IF(AND(RC[-12]=213000,RC[-1]>0),""M11"",IF(AND(RC[-" & _
"0,RC[-1]<0),""F16"",IF(AND(RC[-12]=220000,RC[-1]>0),""M12"",IF(AND(RC[-12]=228000,RC[-1]<0),""F17"",IF(AND(RC[-12]=228000,RC[-1]>0),""M7"",IF(AND(RC[-12]=240000,RC[-1]<0),""F17"",IF(AND(RC[-12]=240000,RC[-1]>0),""M7"",IF(AND(RC[-12]=283000,RC[-1]<0),""F12"",IF(AND(RC[-12]=283000,RC[-1]>0),""M18"","""")))))))))))))))))))))))))))"
Da ihm die Formel zu lange ist.... splittet er sie auf mehrere Zeilen.
Jedoch funktioniert sie so nicht mehr... :(
Weiß jmd warum? Vielen Dank schon mal :)
Laufzeitfehler 1004
Hab's mal so versucht (mit Umbrüchen an anderen Stellen), ging aber auch nicht:
Range("N17").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]="""","""",IF(AND(RC[-12]=111000,RC[-1]<0),""M15"",IF(AND(RC[-12]=111000,RC[-1]>0),""F5"",IF(AND(RC[-12]=115000,RC[-1]<0),""M15"",IF(AND(RC[-12]=115000,RC[-1]>0),""F5"",IF(AND(RC[-12]=150000,RC[-1]<0),""M16"",IF(AND(RC[-12]=150000,RC[-1]>0),""F6"",IF(AND(RC[-12]=155000,RC[-1]<0),""M16"",IF(AND(RC[-12]=155000,RC[-1]>0),""F6"", " & _
"IF(AND(RC[-12]=194000,RC[-1]<0),IF(AND(RC[-12]=194000,RC[-1]>0),""F7"",IF(AND(RC[-12]=196000,RC[-1]<0),""M18"",IF(AND(RC[-12]=196000,RC[-1]>0),""F12"",IF(AND(RC[-12]=197000,RC[-1]<0),""X1"",IF(AND(RC[-12]=197000,RC[-1]>0),""X2"",IF(AND(RC[-12]=205000,RC[-1]<0),""F16"",IF(AND(RC[-12]=205000,RC[-1]>0),""M4"", " & _
"IF(AND(RC[-12]=213000,RC[-1]<0),""F16"",IF(AND(RC[-12]=213000,RC[-1]>0),""M11"",IF(AND(RC[-0,RC[-1]<0),""F16"",IF(AND(RC[-12]=220000,RC[-1]>0),""M12"",IF(AND(RC[-12]=228000,RC[-1]<0),""F17"",IF(AND(RC[-12]=228000,RC[-1]>0),""M7"",IF(AND(RC[-12]=240000,RC[-1]<0),""F17"",IF(AND(RC[-12]=240000,RC[-1]>0),""M7"", " & _
"IF(AND(RC[-12]=283000,RC[-1]<0),""F12"",IF(AND(RC[-12]=283000,RC[-1]>0),""M18"","""")))))))))))))))))))))))))))"
|