Vba code messagebox

[jeroen0078]

Hallo,

Ik zou graag een messagebox krijgen wanneer er in cel A1 "nok" staat.
In die cel A1 kan er ofwel "ok" ofwel "nok" ofwel niets staan. Dus als ik het Excel bestandje open staat er niets in de cel, als het verandert naar "nok" zou er een messagebox moeten verschijnen als er niets instaat of "ok" moet er niets gebeuren.

ik heb volgende vba code gebruikt maar dit lukt niet.
Weet iemand hoe dit kan werken?

Sub test()
If Range("A1") = "nok" Then
MsgBox "Opgelet!!!"
Exit Sub

End If
End Sub


Alvast bedankt

 

[Wigi]

Plak dit in de code achter het blad waar het moet gebeuren.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        If Target.Value = "nok" Then MsgBox "Opgelet!!!"
    End If
End Sub

Wigi

 

[jeroen0078]

Bedankt voor de snelle reatie.

Ik heb nog een probleem omdat A1 gebasseerd is op een vertikaal zoeken functie, de code werkt perfect als ik er gewoon "nok" invul maar doordat er in de functiebalk vertikaal zoeken staat werkt het niet meer. Is hiervoor een oplossing?

 

[Wigi]

Normaal gezien mag dat geen rol spelen. Hang eens het bestandje bij hier.

 

[jeroen0078]

(Zie bijlage) in C4 moet je even het bedrijf aanduiden en dan komt er "ok" of "nok"

Alvast bedankt

 

[Wigi]

2 fouten, vergelijk de code maar eens met wat het moet zijn:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$4" Then
        If Range("A1").Value = "nok" Then MsgBox "Opgelet!!!"
    End If
End Sub

Wigi

 

[jeroen0078]

Bedankt Wigi voor de hulp!!!

 

[Wigi]

Bedankt Wigi voor de hulp!!!

Cross-post

Dat op zich is al erg dat je dat doet, en daarenboven nog niet aangeven op het andere forum dat er al een oplossing is. Heel erg...

Wigi