Controle goed invullen

Status
Niet open voor verdere reacties.
O

Oude leerling

Gebruiker
Lid geworden
30 aug 2010
Berichten
554
Geacht forum,

In de Range B1:B21 moeten er op willekeurige plaatsen een 1 ingevuld worden.
Dat gaat af en toe fout.
Nu wil ik als er in een cel in de range B1:B21 iets anders ingevuld wordt dan een 1
er gelijk een mededeling komt.
MsgBox "Onjuist ingevuld"
Kunt u mij hiermede helpen?
Vriendelijke groet,
Jaap
 

Bijlagen

  • Test goed ingevuld.xlsx
    15,2 KB · Weergaven: 18
In module "Blad1"/"Sheet1".
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("B1:B21")) Is Nothing Then
        If Trim(Target.Value) <> "1" Then
            MsgBox "Onjuist ingevuld."
        End If
    End If

End Sub
 
Kan toch gewoon via datavalidatie?
 

Bijlagen

  • Test goed ingevuld (1).xlsx
    9,5 KB · Weergaven: 24
Alphamax,
Bedankt voor de geboden oplossing.
Werkt prima.

VenA,
Datavalidatie, had ik nog nooit van gehoord.
Werkt echter ook prima.
Ik ga het eens opzoeken en kijken hoe je dat moet instellen.
Heb ik van beide oplossingen weer wat geleerd.
Dank je wel!!
Vriendelijke groet, Jaap
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan