Cell met minimum waarde andere kleur geven

Status
Niet open voor verdere reacties.

jantoedeledoki

Gebruiker
Lid geworden
22 dec 2010
Berichten
36
Hallo,

Ik heb met onderstaande code de minimum waarde bepaald van rng3 en deze geplaatst in cell N17.
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim min1 As Single
Dim rng3 As Range
Set rng3 = ActiveSheet.Range("C12:I19")
min1 = Application.WorksheetFunction.Min(rng3)
Range("N17").Value = min1
End Sub
Nu wil ik de cell in rng3 die de minimum waarde bevat een andere kleur geven met
Code:
.Interior.Color = RGB(217, 217, 217)

Mijn vraag is alleen hoe?

Bij voorbaat dank
 
Nog afgezien van de vraag of je het niet net zo makkelijk met Voorwaardelijke opmaak kunt doen, was je er nota bene zo goed als: :)
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim min1 As Single
Dim rng3 As Range
    Set rng3 = ActiveSheet.Range("C12:C22")
    min1 = Application.WorksheetFunction.Min(rng3)
    With Range("B1")
        .Value = min1
        .Interior.Color = RGB(217, 217, 217)
    End With
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan