Hallo,
da ich den Code übernommen habe, weiß ich auch nicht was das mit *1+0 sollte, das kann aber raus.
Die ganze Datei zu posten bringt nichts, da die Basisdaten von einer SQL-Datenbank kommen, die nicht erreichbar wäre.
Seltsam ist, dass das ganze mit der "SUMMENPRODUK"-Formel gehen würde, nur nicht mit "SUMMEWENN, was aber viel schneller arbeitet.
Beispiel:
FUNKTIONIERT NICHT
'Cells(2 + iRun, 17).FormulaLocal = ("=(SUMMEWENN((D:D;" >= "&D" & zellbezug & ";P:P))-(SUMMEWENN(D:D;" > "&K" & zellbezug & ";P:P)))")
FUNKTIONIERT:
'Cells(2 + iRun, 17).FormulaLocal = ("=SUMMENPRODUKT((D:D>=D" & zellbezug & ")*(D:D<=K" & zellbezug & "))")
Schreibe ich nur die Teilschritte der SUMMEWENN Berechnungen (also ohne - SUMMEWENN), geht es, dann erhalte ich das Ergebnis "WAHR".
|