Hi,
Ik laat VBA een aantal formules plaatsen, maar dit plaatsen gaat extreem traag. Dit terwijl handmatig uitrekenen aan staat, en screenupdating false
Is er een betere manier om dingen op te tellen op basis van 2 criteria?
Ik laat VBA een aantal formules plaatsen, maar dit plaatsen gaat extreem traag. Dit terwijl handmatig uitrekenen aan staat, en screenupdating false
Code:
With ThisWorkbook.Sheets("PTstatusrapport") 'dit duurt heel lang
.Range("A2").PasteSpecial xlPasteValues
lr = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("D2:D" & lr).FormulaR1C1Local = "=SOMMEN.ALS(Idcase30!K[4];Idcase30!K;PTstatusrapport!RK[-3];Idcase30!K[19];""Pick"")" < deze gaat traag
.Range("E2:E" & lr).FormulaR1C1Local = "=SOMMEN.ALS(Idcase30!K[3];Idcase30!K[-1];PTstatusrapport!RK[-4];Idcase30!K[18];""Bulk"")" < deze gaat traag
.Range("F2:F" & lr).FormulaR1C1Local = "=ALS(RK[-2]<RK[-3];RK[-3];0)" < deze gaat snel
End With
Is er een betere manier om dingen op te tellen op basis van 2 criteria?