irgendwo hab gibt es hier ein Problem in VBA.
Eine Formel in der Zelle (die Funktioniert) lautet
=IF((SUM($AO4:$AY4)=0);"";
(100-(100* (IF((SUM($J4:$J4)<0);
(SUM($J4:$T4))*(-1);
(SUM($J4:$T4))))
/ (SUM($AO4:$AY4)))) / 100)
Formel mit Debugger in VBA
=if((sum(RC41:RC51)=0),"",(100-(100*(if((SUM(RC10:RC20)<0);(SUM(RC10:RC20))*(-1);(SUM(RC10:RC20)))) / (SUM(RC41:RC51)))) / 100)
aber hier kommt der Fehler 1004 Application or Object-defined error.
Die Zuweisung erfolgt über
rData.FormulaR1C1 = sHilf
rdata ist die Spalte (Range), wobei die Formelzuweisung in der folgenden Form aber ohne Fehler funktioniert.
=if((sum(RC41:RC51)=0),"",(100-(100*(sum(RC10:RC20)) / (sum(RC41:RC51)))) / 100)
Merci für Tipps und Vorschläge,
Jochen