Mammutformel in VBA
07.11.2007 11:37:00
Melanie
ich möchte per Makro eine Formel in eine Zelle schreiben, bisher habe ich Formeleingaben immer nur mit dem Makrorekorder aufgezeichnet, sprich ich bin nicht ganz so bewandert, mit der direkten Eingabe von Formeln im VB-Editor.
Jetzt habe ich das Problem, dass meine Formel wohl etwas zu lang ist, und den Makrorecorder überfordert. Ich bekomme immer die Meldung "Kann nicht schreiben" wenn ich die Eingabe über die Entertaste beenden will.
Könnt ihr mir helfen, die Formel so umzuschreiben, dass ich sie im Makro verwenden kann?
Das wär super!
Danke im Voraus,
Melanie
Und hier ist das gute Stück:
=WENN(ODER(RECHTS(RECHTS(LINKS(C2;FINDEN("_";C2)-1);LÄNGE(LINKS(C2;FINDEN("_";C2)-1))-4); LÄNGE(RECHTS(LINKS(C2;FINDEN("_";C2)-1);LÄNGE(LINKS(C2;FINDEN("_";C2)-1))-4))-1)="10"; RECHTS(RECHTS(LINKS(C2;FINDEN("_";C2)-1);LÄNGE(LINKS(C2;FINDEN("_";C2)-1))-4);LÄNGE(RECHTS(LINKS(C2; FINDEN("_";C2)-1);LÄNGE(LINKS(C2;FINDEN("_";C2)-1))-4))-1)="11";RECHTS(RECHTS(LINKS(C2;FINDEN("_";C2) -1);LÄNGE(LINKS(C2;FINDEN("_";C2)-1))-4);LÄNGE(RECHTS(LINKS(C2;FINDEN("_";C2)-1);LÄNGE(LINKS(C2; FINDEN("_";C2)-1))-4))-1)="12");RECHTS(RECHTS(LINKS(C2;FINDEN("_";C2)-1);LÄNGE(LINKS(C2;FINDEN("_"; C2)-1))-4);LÄNGE(RECHTS(LINKS(C2;FINDEN("_";C2)-1);LÄNGE(LINKS(C2;FINDEN("_";C2)-1))-4))-1); "0"&RECHTS(RECHTS(LINKS(C2;FINDEN("_";C2)-1);LÄNGE(LINKS(C2;FINDEN("_";C2)-1))-4); LÄNGE(RECHTS(LINKS(C2;FINDEN("_";C2)-1);LÄNGE(LINKS(C2;FINDEN("_";C2)-1))-4))-1))