ich habe eine Exceltabelle in die ich per VBA 4 Bedingungen / Formeln einfügen möchte. Das Problem ist, dass ich das per Makrorekorder versucht habe aufzuzeichnen, das aber irgendwie nicht hinhaut. Der hat mir einfach nichts aufgenommen.
Vielleicht könnt ihr mir helfen:
Die Formeln sollen angewendet werden auf den Bereich von Zelle F2:F9999
Hier die Fälle:
1.
=WENN(ODER(F2="AZ";);1;)
-> Dann ausfüllen mit Farbe WEIß
2.
=WENN(ODER(F2="AS";F2="BH";F2="BM";F2="BO";F2="BP";F2="EI";F2="EP";F2="EX";F2="IA";F2="IC";F2="KA"; F2="KB";F2="KP";F2="KS";F2="PC";F2="PO";F2="R1";F2="RP";F2="RU";F2="SZ";F2="T1";F2="T2";F2="ZA"; F2="ZC";);1;)
-> Dann ausfüllen mit Farbe GRÜN
3.
=WENN(ODER(F2="FA";F2="FC";F2="FD";F2="FF";F2="HB";F2="KC";F2="KD";F2="KE";F2="KF";F2="KG";F2="KH"; F2="KJ";F2="KK";F2="KM";F2="TE";F2="TG";F2="TS";F2="WE";F2="WF");1;)
-> Dann ausfüllen mit Farbe BLAU
4.
=WENN(ODER(F2="03";F2="12";F2="13";F2="14";F2="15";F2="25";F2="27";F2="28";F2="2E";F2="2M";F2="2N"; F2="2S";F2="30";F2="31";F2="39";F2="4E";F2="4J";F2="4M";F2="61";F2="64";F2="6L";F2="83";F2="84"; F2="86";F2="B1";F2="B2";F2="B5";F2="B7";F2="B9";F2="BE");1;)
-> Dann ausfüllen mit Farbe BLAU
5.
=WENN(ODER(F2="40";F2="AR";F2="B1";F2="BA";F2="BE";F2="BG";F2="BJ";F2="C1";F2="C2";F2="CC";F2="CI"; F2="CK";F2="CM";F2="DH";F2="DX";F2="EC";F2="EE";F2="FF";F2="FL";F2="FW";F2="G1";F2="JM";F2="LD"; F2="MX";F2="O1";F2="O2";F2="OR";F2="RA";F2="RO";F2="SH";F2="SL";F2="VM";F2="VV";F2="WE");1;)
-> Dann ausfüllen mit Farbe BLAU
6.
=WENN(ODER(F2="BI";F2="BN";F2="BT";F2="BU";F2="BY";F2="CP";F2="CT";F2="CW";F2="D1";F2="GN";F2="GU"; F2="HC";F2="HM";F2="";F2="IH";F2="IP";F2="IT";F2="TH";F2="TI";F2="TN";F2="TP";F2="UP";F2="UZ";F2="G"; F2="H";F2="J";F2="L";F2="N";F2="Q");1;)
-> Dann ausfüllen mit Farbe GELB