Hallo,
Ik ben benieuwd of er een oplossing is binnen vba om met het if statement een sturing aan een cel te geven als de waarde binnen 2 grenzen of er gelijk aan ligt en er buiten valt, zie mijn niet werkende code
bij voorbaat dank,
nout
Ik ben benieuwd of er een oplossing is binnen vba om met het if statement een sturing aan een cel te geven als de waarde binnen 2 grenzen of er gelijk aan ligt en er buiten valt, zie mijn niet werkende code
Code:
Sub test()
Dim waarde As Double
nominaalspec = Cells(1, 3).Value
Uppertol = Cells(2, 3).Value
Lowertol = Cells(3, 3).Value
Upperspec = nominaalspec + Uppertol
lowerspec = nominaalspec + Lowertol
waarde = Cells(6, 3).Value ' leest de waarde van de invoercel in '
If waarde > lowerspec And waarde < Upperspec Then
Cells(6, 3).Interior.ColorIndex = 3
Else: Cells(6, 3).Interior.ColorIndex = 4
End If
End Sub
bij voorbaat dank,
nout
Laatst bewerkt door een moderator: