vba voorraad/recepten

[nikki007]

Goedenavond,

Ik probeer voorraad + recepten excel-programma te krijgen (Aardig opweg..)


Maar....Probleem: samengesteld ingredienten ---> 1 recept/verandering van kleur....Lukt niet


vba:

Sub appelmoes()

Dim condition1 As Boolean
Dim condition2 As Boolean
Dim condition3 As Boolean

condition1 = Worksheet("voorraad").Range("B22") >= 1 'appels
condition2 = Worksheet("voorraad").Range("EL27") >= 1 'suiker
condition3 = Worksheet("voorraad").Range("EL11") >= 1 'kaneel

If (condition1 And condition2 And condition3) = True Then

Worksheets("a-la-carte").Range("F15").InteriorIndex = 10

Else: Worksheets("a-la-carte").Range("F15").Interior.ColorIndex = 3

End If
 
End Sub

Kun je me helpen? Alvast bedankt.
Nikki

NB
Ik heb een hersenbloeding gehad, daarom ben ik slecht in Nederlandse zinnen schrijven

 

[edmoor]

Maak er eens dit van:

Sub Appelmoes()
    Dim Condition1 As Boolean
    Dim Condition2 As Boolean
    Dim Condition3 As Boolean

    With Sheets("voorraad")
        Condition1 = .Range("B22") >= 1  'Appels
        Condition2 = .Range("EL27") >= 1 'Suiker
        Condition3 = .Range("EL11") >= 1 'Kaneel
    End With
    
    Sheets("a-la-carte").Range("F15").Interior.ColorIndex = _
    IIf(Condition1 And Condition2 And Condition3, 10, 3)
End Sub

 

[nikki007]

!!De oplossing werkt perfect! Hartelijk dank hiervoor, ik was er zelf niet uitgekomen.

O ja, laatste zin :

".... Sheets(....) = _ IIf(condition1 And condition2 And condition3, 10, 3).....

"_ IIf" ---> ???? Ik begrijp het niet meer... Niet 'if" ?

Nikki

 

[edmoor]

De Iif functie staat hier uitgelegd:
https://support.office.com/en-ca/article/IIf-Function-32436ecf-c629-48a3-9900-647539c764e3