Messagebox bij overschrijden waarde in een cel

[stefano]

Hallo,

Ik wil de inhoud van een cel controleren op een hoeveelheid. Wanneer deze hoeveelheid overschreden wordt, zowel in plus als in min, had ik graag een messagebox zien verschijnen met een foutmelding. Hoe vertaal ik dat in vba ?

a1 = 15
a2 = 20

stel 17 in a3 ==> alles ok , geen msgbox
stel 13 in a3 ==> waarde te laag in msgbox
stel 23 in a3 ==> waarde te hoog in msgbox

dank voor de hulp.

Stefaan

 

[edmoor]

Zoiets achter het betreffende blad:

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
        Case "$A$1", "$A$2"
            Select Case Range("A3").Value
                Case 13
                    MsgBox "Waarde te laag", vbOK
                Case 23
                    MsgBox "Waarde te hoog", vbOK
            End Select
    End Select
End Sub

En in A3 de formule =A1+A2

 

[stefano]

Ai, ai het werkt niet. Ik heb de code geplakt in bestand in bijlage en nog wat extra info aangemeld.Bekijk bijlage minmax.xlsm

 

[edmoor]

Het werkt prima maar je gebruikt in het document andere waarden dan in je voorbeeld.
Je moet uiteraard wel de waarden gebruiken zoals in je voorbeeld of de code erop aanpassen.

 

[stefano]

ik heb de code aangepast maar krijg het niet aan de praat. Hierbij nog eens de vraag : waarom in a3 de formule a1+a2 ?

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
        Case "$A$1", "$A$2"
            Select Case Range("A3").Value
                Case "$a$1"
                    MsgBox "Waarde te laag", vbOK
                Case "$a$2"
                    MsgBox "Waarde te hoog", vbOK
            End Select
    End Select
End Sub

 

[edmoor]

Dat is wat ik begreep uit je eerste je vraag.
In de routine kun je zien dat deze wordt geactiveerd als je in A1 of A2 iets aanpast.

 

[stefano]

Maar het is net in a3 dat andere waarden komen te staan, a1 en a2 zijn eerder vaste waarden....

 

[edmoor]

Ok, dus het is de waarde in A3 die veranderd en daar wil je dan op reageren?
En dat heeft dan niks met A1 en A2 te maken?

 

[stefano]

Een voorbeeld maakt mijn vraag mogelijks duidelijker

Het vochtgehalte van een stof moet minimaal 10% (a1) bedragen en maximaal 15 % (a2)

Ik wil dit controleren door in a3 een waarde in te geven.

Wanneer de waarde in a3 lager is dan de waarde in a1 ( het vocht is te laag ) dan moet een msg-box verschijnen.

Wanneer de waarde in a3 hoger is dan de waarde in a1 ( het vocht is te hoog ) dan moet een msg-box verschijnen.

Wanneer de waarde in a3 tussen a1 en a2 ligt dan dient er niks te gebeuren.

 

[Haije]

alternatieven

stefano,

hier een alternatief met voorwaardelijke opmaak in cel A3
en een tweede alternatie in B3 met valideren

 

[stefano]

Haije ,

Heel hartelijk dank voor de alternatieven maar bedoeling is wel degelijk dat er een message-box verschijnt zodat de gebruiker duidelijk geïnformeerd wordt over de ingegeven waarde.

niettemin dank !

 

[Haije]

dat doet het alternatief met voorwaardelijke opmaak toch?

 

[stefano]

Het alternatief met voorwaardelijke opmaak geeft een tekst weer in een cel en geen message-box bij mij . Ik wil echt een messagebox die door de gebruiker moet weggeklikt worden....