VBA Code zu lang?
22.08.2017 08:16:30
John
ich müsste folgende Formel in ein VBA Code umwandeln:
=WENN(M17="";"";WENN(UND(B17=111000;M170);"F5";WENN(UND(B17=115000; M170);"F5";WENN(UND(B17=150000;M170);"F6";WENN(UND(B17=155000;M170);"F6";WENN(UND(B17=194000; M170);"F7";WENN(UND(B17=196000;M170);"F12";WENN(UND(B17=197000;M170);"X2";WENN(UND(B17=205000; M170);"M4";WENN(UND(B17=213000;M170);"M11";WENN(UND(B17=220000;M170);"M12";WENN(UND(B17=228000; M170);"M7";WENN(UND(B17=240000;M170);"M7";WENN(UND(B17=283000;M170);"M18";""))))))))))))))))))))) ))))))
Range("N17").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]="""","""",IF(AND(RC[-12]=111000,RC[-1]0),""F5"",IF(AND(RC[-12]=115000,RC[-1]0),""F5"",IF(AND(RC[-12]=150000,RC[-1]0),""F6"",IF(AND(RC[-12]=155000,RC[-1]0),""F6"", " & _
"IF(AND(RC[-12]=194000,RC[-1]0),""F7"",IF(AND(RC[-12]= _
196000,RC[-1]0),""F12"",IF(AND(RC[-12]=197000,RC[-1]0),""X2"",IF(AND(RC[-12]=205000,RC[-1]0),""M4"", " & _
"IF(AND(RC[-12]=213000,RC[-1]0),""M11"",IF(AND( _
RC[-0,RC[-1]0),""M12"",IF(AND(RC[-12]=228000,RC[-1]0),""M7"",IF(AND(RC[-12]=240000,RC[-1]0),""M7"", " & _
"IF(AND(RC[-12]=283000,RC[-1]0),""M18"","""")))))))))))))))))))))))))))"
Laufzeitfehler 1004Ich vermute, dass die Zeilenumbrüche falsch sind!?
Oder ist die Formel einfach zu lang?
Vielen Dank im Voraus.
Gruß
John