Wino, je hebt het nu opgelost met VBA, maar dat is echt niet nodig. Maar als je het echt wilt, kan je je eigen code aanpassen door ipv
> 1 gewoon
= "avonddienst". Zelf zou ik dan de voorkeur geven aan deze code...
If Not Intersect(Target, Range("A4:C4")) Is Nothing Then
If Target.Value = "avonddienst" Then
MsgBox "Avonddienst niet toegestaan..."
End If
End If
(ipv jouw codeblokje)
Maar.... Waarom niet gewoon oplossen met de standaard functionaliteit van Excel? Je kan in een cel een validatie opgeven via Data, Validation (validatie) en dan kiezen voor Custom (handmatig?). Bij Formula (formule) zet je dan voor bijvoorbeeld cel A4 de volgende formule:
=A4<>"avonddienst"
Je kan dan ook nog je eigen foutmeldingen en afhandelingen toevoegen op de andere tabs van de functie Validatie.
Groet, Leo
EDIT: Tja, Erik was me nét iets voor met het antwoord... Maar we zitten wel op dezelfde golflengte!
EDIT 2: aangepast bestand toegevoegd!