Cellen kleuren van uit een functie

Status
Niet open voor verdere reacties.
X

Xzeo

Nieuwe gebruiker
Lid geworden
5 aug 2017
Berichten
1
Een functie geeft een waarde terug.
Kan een functie ook de betreffende cel (of een naastliggende cel) kleuren ?
 
bv.
Code: 
cells(1).offset(,1).interior.colorindex =waarde
 
Voldoet voorwaardelijke opmaak niet ?
 
Je kan middels het aanroepen van een sub middels Evaluate in jouw funktie, een andere cel kleuren oid.
 
waarom niet meteen met een macro ?

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Target.Interior.ColorIndex = 5
End Sub
in plaats van:

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       F_snb
End Sub

Function F_snb()
    Selection.Interior.ColorIndex = 5
End Function
 
ik doelde op onderstaande als antwoord op de vraag uit post#1:
Code: 
Function KleurmetUDF(rng As Range)
rng.Parent.Evaluate "KleurMaken(" & rng.Address(False, False) & ")"
KleurmetUDF = rng.Address(False, False) & " is geel"
End Function
Sub KleurMaken(rng As Range)
    rng.Interior.ColorIndex = 6
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan