ich benötige wieder dringend Hilfe:
Folgende Formel habe ich einer Zelle stehen:
"=WENN(MONAT(B7)=3;WENN(W7=0;C7;WENN(W7=1;SUMME(C6:C7);SUMME(C5:C7)));WENN(MONAT(B7)=6;WENN(W7=0;C7;WENN(W7=1;SUMME(C6:C7);SUMME(C5:C7)));WENN(MONAT(B7)=9;WENN(W7=0;C7;WENN(W7=1;SUMME(C6:C7);SUMME(C5:C7)));WENN(MONAT(B7)=12;WENN(W7=0;C7;WENN(W7=1;SUMME(C6:C7);SUMME(C5:C7)));""))))"
Diese möchte ich gerne per Makro in diese Zelle schreiben.
Bisher habe ich es so versucht:
ActiveSheet.Range("L7").Select
ActiveCell.FormulaLocal = _
"=WENN(MONAT(B7)=3;WENN(W7=0;C7;WENN(W7=1;SUMME(C6:C7);SUMME(C5:C7)));WENN(MONAT(B7)=6;WENN(W7=0;C7;WENN(W7=1;SUMME(C6:C7);SUMME(C5:C7)));WENN(MONAT(B7)=9;WENN(W7=0;C7;WENN(W7=1;SUMME(C6:C7);SUMME(C5:C7)));WENN(MONAT(B7)=12;WENN(W7=0;C7;WENN(W7=1;SUMME(C6:C7);SUMME(C5:C7)));""))))"
Nur leider lässt sich das Makro nicht ausführen!
Wo liegt der Fehler?
Ist die Formel zu lang?
Besten Dank schonmal für Eure Hilfe!
Rob