Kleur textbox veranderen aan de hand van een MIN en een MAX voorraad

[HWV]

Bekijk bijlage Helpmij.xlsm

Beste,

Ik heb een userform met daarin een Minimale voorraad en een Maximale voorraad.
Wat ik wil bereiken is het volgende:

Als we uitgaan van het volgende

min = 10
max = 20
voorraad = 8

De min (textbox) moet rood worden als de voorraad onder de min komt (in dit voorbeeld dus 10)
Maar als de voorraad 20% boven de min zit dat dan de min oranje wordt
Alles erboven dat de textbox dan groen wordt.

Heb al aardig wat geprobeerd maar kom er niet uit
Wie kan mij hierin ondersteunen

Groet HWV

 

[edmoor]

Probeer het zo eens. De voorwaarden voor de kleuren staan in Voorraad_Change en kan je uiteraard naar wens wijzigen:
Bekijk bijlage Helpmij1.xlsm

 

[SjonR]

Probeer deze eens:

        Select Case Left(Voorraad.Value, InStr(Voorraad.Value, " ") - 1) * 1
            Case Is < Left(Min.Value, InStr(Min.Value, " ") - 1) * 1
                Min.BackColor = RGB(255, 0, 0)
            Case Is < Left(Min.Value, InStr(Min.Value, " ") - 1) * 1.2
                 Min.BackColor = RGB(255, 102, 0)
            Case Is >= Left(Min.Value, InStr(Min.Value, " ") - 1) * 1.2
                 Min.BackColor = RGB(0, 255, 0)
        End Select

 

[HWV]

de oplossing

Beste,

Ik heb de oplossing van SjonR gebruikt en werkt zoals ik nu zie in het hulp bestand goed.
Zal het morgen inbouwen in het originele bestand en kijken wat het doet.
Bedankt zover voor de ondersteuning

Groet HWV

 

[HWV]

Loop toch nog tegen een probleem aan

Beste,

Nu ik met het script van SjonR werkt kom achter het volgende.
Als de min en max leeg zijn dan pakt hij de laatste kleur die daarvoor in de case stond.

Zie de bijlage waar ik omschrijving 1 de min en max leeg heb gemaakt als ik van omschrijving 3 naar omschrijving 1 gaat dan neemt hij de kleur over van omschrijving 3

Ik kom er maar niet uit om de case aan te passen, dat als de min en max leeg zijn dat er dan geen verandering van kleur komt

Bekijk bijlage Helpmij_kleur.xlsm

Alsvast dank voor de hulp

Henk