suche eine Lösung in VBA für eine Formel die mehr als 64 Verschachtelungen hat.

Question

Hallo und einen schönen guten Morgen,

vielleicht kann mir jemand eine Lösung in VBA erstellen, da ich in VBA leider keine Ahnung habe. Ich könnte mit einer Hilfszelle die Formel erstellen. Die so aussehen würde.

Diese Formel würde ich z B. in AAG3 und AAG4 eintragen, 

=wenn(J1=1;AAB2;Wenn(J1=2;AAB3, bis zu, Wenn(J1=64;AAB65, dann würde ich eine neue Zelle nehmen und  wieder mit wenn(J1=65;AAB66 und das bis J1=154;AAB155. 

Danach würde ich in RE2 Diese Formel nutzen:

Der Eintrag würde in die Zelle RE2 eingetragen.

Wenn(J1<65;AAG3;wenn(J1>64;AAG4

Es wäre sehr nett wenn mich jemand unterstützen könnte, sollte dies leider nicht möglich sein muss ich wohl alles einzeln eingeben

Gruß adde

Answer 1

Guten Morgen,

spricht etwas gegen die direkte Verwendung in RE2 von
INDEX(AAB2:AAB154;J1)

bzw. falls doch irgendwo mal eine Ausnahme wäre

WAHL(J1;AAB2;AAB3;AAB4;AAB5;AAB6;AAB7;AAB8;AAB9;AAB10;AAB11;AAB12;AAB13;AAB14;AAB15;AAB16;AAB17;AAB18;AAB19;AAB20;AAB21;AAB22;AAB23;AAB24;AAB25;AAB26;AAB27;AAB28;AAB29;AAB30;AAB31;AAB32;AAB33;AAB34;AAB35;AAB36;AAB37;AAB38;AAB39;AAB40;AAB41;AAB42;AAB43;AAB44;AAB45;AAB46;AAB47;AAB48;AAB49;AAB50;AAB51;AAB52;AAB53;AAB54;AAB55;AAB56;AAB57;AAB58;AAB59;AAB60;AAB61;AAB62;AAB63;AAB64;AAB65;AAB66;AAB67;AAB68;AAB69;AAB70;AAB71;AAB72;AAB73;AAB74;AAB75;AAB76;AAB77;AAB78;AAB79;AAB80;AAB81;AAB82;AAB83;AAB84;AAB85;AAB86;AAB87;AAB88;AAB89;AAB90;AAB91;AAB92;AAB93;AAB94;AAB95;AAB96;AAB97;AAB98;AAB99;AAB100;AAB101;AAB102;AAB103;AAB104;AAB105;AAB106;AAB107;AAB108;AAB109;AAB110;AAB111;AAB112;AAB113;AAB114;AAB115;AAB116;AAB117;AAB118;AAB119;AAB120;AAB121;AAB122;AAB123;AAB124;AAB125;AAB126;AAB127;AAB128;AAB129;AAB130;AAB131;AAB132;AAB133;AAB134;AAB135;AAB136;AAB137;AAB138;AAB139;AAB140;AAB141;AAB142;AAB143;AAB144;AAB145;AAB146;AAB147;AAB148;AAB149;AAB150;AAB151;AAB152;AAB153;AAB154;AAB155)

ging übrigens auch ohne VBA zum zusammenbauen, einfach in einem neuen Blatt z.B. in A2 ="AAB" & ZEILE(B2) eingeben und runterziehen in B2 = A2 und in B3 = B2 &";"&A3 eingeben und wieder runterziehen

(Mit Office 365 Alternativ zur Spalte "B" auch mit Textverketten und Spalte A als ="AAB" & SEQUENZ(154)+1)

Answer 2

Hallo Anonym

erst einmal vielen Dank für deine Antwort. Nein es spricht nichts gegen diese Formel. Habe gar nicht an Wahl gedacht, hätte ich auch darauf kommen können, aber ich denke manchmal sehr kompliziert.

Esfunktiniert.

Danke nochmals

Gruß Adde.

Answer 3

Hallo Anonym,

habe noch eine Verständnisfrage zu deiner Lösung.

Kann ich (Wahl)  auch auf eine andere Zelle beziehen. Es sind fast die gleichen Bedingungen. In J1 soll wenn in Wenn(AAE1<301;1;WENN( AAE1=301;2;USW.  geht das auch so oder was muss ich hier verändern.

Vilen Dank vorab deiner Info.

Gruß Adde