Variabele in CountIf functie

[Gerard_46]

Een onderdeel van een VBA is de functie countif.

De variabele "Aantal" wordt berekend over diverse blokken van het spreadsheet.
Voor ieder blok moet er een countif functie worden uitgevoerd op meerdere kolommen.

Ik krijg echter de variabele niet zodanig ingevoerd in de formule dat deze werkt.

Kan iemand mij met dit laatste stukje helpen?

'Bepalen over hoeveel regels de formule plaatsvindt.
IngEndRow = Range("a" & IngStartRow).End(xlUp).Row
Aantal = -(IngStartRow - IngEndRow)

'Invoeren van de formule
Range("d" & IngStartRow + 1).FormulaR1C1 = "=countif(R(aantal)c:R[-1]C,"">0"")"

 

[Hans123]

De regel om de formule in te voeren zou er als volgt uit moeten zien:

Range("d" & IngStartRow + 1).FormulaR1C1 = "=countif(R[" & aantal & "]c[-3]:R[-1]C[-3],"">0"")".

Waar het waarschijnlijk fout loopt is dat "aantal" negatief wordt zoals hij bepaald wordt. IngEndRow is altijd kleiner dan IngStartRow

 

[Gerard_46]

Opgelost

Werkt prima.

Heel hartelijk bedankt Hans.

:thumb: