MsgBox verschijnt niet

[mariushoog]

Hallo allemaal,
Ik ben een leek op VBA - gebied.
Ik zit al een paar uur te goochelen maar ik kom er niet uit.
Bij invoer van het getal 180 in Cel E11:E27 moet als het goed is een MsgBox verschijnen met de melding "Goed gedaan jochie!".
Deze verschijnt niet. Wat is er fout?

Sub MsgBox()

If Range("E11:E27").Value = 180 Then
MsgBox "Goed gedaan jochie!"
End If

End Sub

 

[Haaren101]

De naam van je Sub is al discutabel. MsbBox is een bestaande functie en als je je sub zo noemt dan gaat dat in ieder geval fout

Ron

 

[RoCompy87]

Het probleem zit hem inderdaad in de naamgeving van je Sub. Verder is de code goed.

 

[Haaren101]

Ik denk dat de code niet goed is. Wanneer moet de tekst komen? Op het moment dat 180 wordt ingetikt in die range?

Zoiets:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$E$11" And Target.Value = 180 Then
MsgBox ("Goed gedaan")
End If

End Sub

 

[Roncancio]

Je moet de code zetten bij het Change Event van de desbetreffende werkblad.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E11:E27")) Is Nothing Then
    If Target.Value = 180 Then
        MsgBox "Goed gedaan jochie!"
    End If
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[Haaren101]

Dan krijg ik hier:

If Range("E11:E27").Value = 180 Then

een type mismatch

Ron

Ha, een aanpassing in het vorige bericht; nou klopt mijn commentaar niet meer!

 

[mariushoog]

Nou daar kan ik wel mee verder.
Binnen 20 min antwoord. Klasse!!

Bedankt allemaal

Marius