FormulaArray-Problem

"=IF(J3="""","""",IF(SUM(IF(MOD(COLUMN(L3:BB3),3)=0,L3:BB3,0))=0,"""",ROUND(SUM(IF(MOD(COLUMN(J3:AZ3)-1,3)0,0,IF(ISNUMBER(J3:AZ3)*ISNUMBER(L3:BB3),J3:AZ3*L3:BB3,0)))/SUM(IF(MOD(COLUMN(L3:BB3),3)=0,L3:BB3,0)),0)))"

{=WENN(J3="";"";WENN(SUMME(WENN(REST(SPALTE(L3:BB3);3)=0;L3:BB3;0))=0;""; RUNDEN(SUMME(WENN(REST(SPALTE(J3:AZ3)-1;3)0;0;WENN(ISTZAHL(J3:AZ3)*ISTZAHL(L3:BB3);J3:AZ3*L3:BB3; 0) ))/SUMME(WENN(REST(SPALTE(L3:BB3);3)=0;L3:BB3;0));0))) }

Dim s As String s = "=IF(J3="""","""",IF(SUM(IF(MOD(COLUMN(L3:BB3),3)=0,L3:BB3,0))=0,"""",ROUND(SUM(IF(MOD( _ COLUMN(J3:AZ3)-1,3)0,0,IF(ISNUMBER(J3:AZ3)*ISNUMBER(L3:BB3),J3:AZ3*L3:BB3,0)))/SUM(IF(MOD(COLUMN(L3:BB3),3)=0,L3:BB3,0)),0)))" MsgBox s MsgBox Len(s) Range("bc3").FormulaArray = s

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hey vielen Dank,
ARGL. Ertappt. Ich habe tatsächlich dort nicht nachgeschlagen, dafür aber das ganze Netz durchwühlt.
Die Excel-Hilfe hat mir bisher so selten wirklich weitergeholfen, die hatte ich gar nicht mehr auf dem Schirm. Sorry.
Vielen Dank auf jeden Fall für Deine Hilfe, Luc:-?!! Jetzt weiß ich wenigstens, warum es nicht funktioniert.
Leider konnte ich das Problem letztlich zwar verstehen, aber nicht lösen:
Dummerweise ist die Formel mit R1C1-Notation länger als 255 (nämlich 284) Zeichen. Gibt es irgendeinen Weg, sie "kleiner" zu machen?
Ich habe leider nicht viel Erfahrung mit dieser Notation. Ich habe versucht, die "R" oder die eckigen Klammern wegzulassen, beides geht nicht.
Ich bastle gerade an einem Workaround, der mit copy&paste arbeitet, aber das ist eigentlich keine gute Lösung.


{=IF(RC[-45]="","",IF(SUM(IF(MOD(COLUMN(RC[-43]:RC[-1]),3)=0,RC[-43]:RC[-1],0))=0,"",ROUND(_
SUM(IF(MOD(COLUMN(RC[-45]:RC[-3])-1,3)0,0,_
IF(ISNUMBER(RC[-45]:RC[-3])*ISNUMBER(RC[-43]:RC[-1]),RC[-45]:RC[-3]*RC[-43]:RC[-1],0)))
/SUM(IF(MOD(COLUMN(RC[-43]:RC[-1]),3)=0,RC[-43]:RC[-1],0)),0)))}

Von der Funktionalität her brauche ich die Sachen leider.

SUM(IF(MOD(COLUMN(RC[-43]:RC[-1]),3)

summiert nur jedes dritte Element.
Da dies den Zähler der Division (Durchschnittsbildung) darstellt, muss ich vorher eine Null ausschließen.
Somit kommt der Term leider zwei Mal vor :(

ISNUMBER(RC[-45]:RC[-3])*ISNUMBER(RC[-43]:RC[-1])

stellt fest, ob ich auch wirklich Zahlen in den Faktoren habe.

RC[-45]:RC[-3]*RC[-43]:RC[-1]

ist die eigentliche Multiplikation.
Die Rundung kann ich nicht durch die Anzeige vornehmen, da die Zahl automatisiert weiterverwendet wird.
Kann man da irgendwas eleganter ausdrücken?
Vielen Dank schon mal für die erste Hilfe - ich würde mich freuen, wenn jemand hier noch eine Idee hat,
wie ich das Ganze doch noch zu einem guten Ende bringen kann.
Beste Grüße,
Sebastian

Sub Makro3() Dim s As String s = "=IF(RC10="""","""",IF(SUM(IF(MOD(COLUMN(RC12:RC54),3)=0,RC12:RC54,0))=0,"""", " _ & "ROUND(SUM(IF(MOD(COLUMN(RC10:RC52)-1,3)0,0,IF(ISNUMBER(RC10:RC52)*" _ & "ISNUMBER(RC12:RC54),RC10:RC52*RC12:RC54, 0) ))/SUM(IF(MOD(COLUMN(RC12:RC54),3)=0," _ & "RC12:RC54,0)),0)))" Range("bc3").FormulaArray = s End Sub Erzeugte Formel in BC3: {=WENN($J3="";"";WENN(SUMME(WENN(REST(SPALTE($L3:$BB3);3)=0;$L3:$BB3;0))=0;""; RUNDEN(SUMME(WENN(REST(SPALTE($J3:$AZ3)-1;3) 0;0;WENN(ISTZAHL($J3:$AZ3)*ISTZAHL($L3:$BB3);$J3:$AZ3*$L3:$BB3; 0) ))/SUMME(WENN(REST(SPALTE($L3:$BB3);3)=0;$L3:$BB3;0));0)))}

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread