Functie probleem

[docarne]

Ik vraag me af of iemand hier mij kan helpen bij het volgende probleem.

In een bepaalde cel verwijs ik naar een functie nl checkWaarde. De inhoud van die cel wordt dus:

=checkWaarde(A1=C1)

De bedoeling is dat als A1=C1 waar is dat een bepaalde cel groen kleurt en dat er "WAAR" komt in te staan. Als A1!=C1 dan zou die cel rood moeten kleuren en "VALS" weergeven.

Als ik enkel de WAAR of VALS laat weergeven werkt de functie perfect (zie de eerste onderstaande code). Maar vanaf dat ik een kleurelement in de desbetreffende cel (G2) toevoeg, geeft hij enkel #VALUE! als waarde in die cel.

Ziet iemand in waarom ik geen andere cel-aanpassingen kan maken in deze functie?

Function checkWaarde(ByRef bol As Boolean) As String
    If bol Then
        checkWaarde = "WAAR"
    Else
        checkWaarde = "VALS"
    End If
End Function

Function checkWaarde(ByRef bol As Boolean) As String
    If bol Then
        With Range("G2").Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent3
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
        End With
        checkWaarde = "WAAR"
    Else
        ... kleur op dezelfde manier als hierboven ...
        checkWaarde = "VALS"
    End If
End Function

 

[Wigi]

Zulke functies kunnen enkel een waarde teruggeven als resultaat, en geen wijzigingen aanbrengen in cellen bvb (zoals kleur zetten).