maximaal argumenten

[Haije]

wijzig H14 eens in

=ALS(SOM(H1)<>0;SOM(H1+H2);[COLOR="#FF0000"]0[/COLOR])

in de bijlage over "" vervangen door 0 en voorwaardelijke opmaak toegepast

 

[bowlingman]

Dit had ik ook al gedaan, maar zoals je ziet krijg ik dan bij de "punten" reeds 0,5 voor er scores zijn ingevuld, wat logisch is vermits er in de scores dan bij beide teams een 0 staat.
Dit moet 0 blijven tot er scores zijn ingevuld.

 

[Haije]

kijk eens naar de formules op regel 15

 

[bowlingman]

@Haije
Dit werkt ook.
Ook als ik de formule (handmatig) zo aanpas

=[COLOR="#FF0000"]ALS(F14="";0;[/COLOR](POS.NEG(F14-W14)+1)/2)

Ik weet echter niet hoe ik dan de vba code

Set Rng = .Range("14:14,32:32,50:50")
        Intersect(.Range("K:N"), Rng).FormulaR1C1 = "=(SIGN(RC[-5]-RC[12])+1)/2"

moet aanpassen.
Ik had het zo geprobeert

Set Rng = .Range("14:14,32:32")
            Intersect(.Range("K:N"), Rng).FormulaR1C1 = "=[COLOR="#FF0000"]IF(RC[-5]="";0;[/COLOR](SIGN(RC[-5]-RC[12])+1)/2)"

Maar dan krijg ik een foutmelding bij het uitvoeren van de macro

 

[Haije]

maak van

"=IF(RC[-5]="";0;(SIGN(RC[-5]-RC[12])+1)/2)"

eens

"=IF(RC[-5]=""[B][COLOR="#FF0000"],[/COLOR][/B]0[B][COLOR="#FF0000"],[/COLOR][/B](SIGN(RC[-5]-RC[12])+1)/2)"

 

[bowlingman]

Dan krijg ik ook een foutmelding

 

[Haije]

Als je de formule goed hebt staan, dan kun je er op de volgende manier achter komen hoe die er in VBA uitziet:

selecteer de cel met de formule
start de macrorecorder
druk op F2, gevolgd door enter
stop de macrorecorder

In de Editor kun je vinden wat de VBA-code van je formule is. In dit geval:

"=IF(RC[-5]=[COLOR="#FF0000"]""""[/COLOR],0,(SIGN(RC[-5]-RC[12])+1)/2)"

er moeten dus ook nog dubbele ""

 

[bowlingman]

Jiepie,
Gelukt.
Wist niet dat je op die manier kon zien hoe een formule exact wordt geschreven in vba code.
Heb ik toch weeral iets heel belangrijk bijgeleerd
Dikke mercie aan alle helpers
:thumb::thumb::thumb:

Grtjs
Armand:d