vba vraagje

[popipipo]

Hallo Excellers

Via onderstaand vba formule geef ik een kleurtje aan een cel.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

With Target
Select Case .Value
Case 0 To 5
.Interior.ColorIndex = 3

Case Else
.Interior.ColorIndex = xlNone
End Select
End With
End Sub

Dit houd dus in als je in een cel 0, 1, 2, 3, 4 of 5 zet de cel rood gekleurd wordt.

Kan vba de waarde van 0 en 5 ook uit een cel halen
In de trand van :

Case "blad1 cel a1" To "blad1 cel a2"

 

[Wigi]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

    With Target
        Select Case .Value
            Case Sheets(1).Range("A1") To Sheets(1).Range("A2"): .Interior.ColorIndex = 3
            Case Else: .Interior.ColorIndex = xlNone
        End Select
    End With
End Sub

 

[popipipo]

Bedankt Wigi

Ik ben niet echt bekend met vba en kwam dus niet op de termen van sheet en range met de haakjes.

Werkt perfect