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:
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?
In een bepaalde cel verwijs ik naar een functie nl checkWaarde. De inhoud van die cel wordt dus:
Code:
=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?
Code:
Function checkWaarde(ByRef bol As Boolean) As String
If bol Then
checkWaarde = "WAAR"
Else
checkWaarde = "VALS"
End If
End Function
Code:
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