beperkte invoer userform

[mtb]

invoer mogelijkheid userform beperken

hallo,

Met hulp van LucB heb ik een perfect lopende userform, nu probeer ik deze verder te verbeteren d.m.v. onderstaande vraag.

Ik zou graag de invoer mogelijkheid willen beperken, dwz dat er alleen maar een 1,2 of 3 ingevuld kan worden in de tekst labels, en als er een ander getal ingevuld word er een msgbox komt met de melding "alleen invoer van 1, 2 of 3 is mogelijk" , zou iemand mij hier mee kunnen helpen.

hieronder de de code zoals die nu is:

Private Sub CommandButton3_Click() 'Opslaan
Dim c As Variant
Dim x As Integer, y As Integer

For y = 1 To 15 'kijkt in een loop of alle textboxen zijn gevuld
If Controls("TextBox" & y).Text = "" Then GoTo msg
Next y
Application.ScreenUpdating = False 'voorkomt beeldflikkering tijdends plakactie.
Sheets("totaalblad").Activate

For Each c In Range("G2:EX2") 'zoekt de naam van de combobox in de Range
If c = ComboBox1.Text Then
c.Select
End If
Next c

For x = 1 To 15 'vult in een loop de kolom onder de juiste Naam
ActiveCell.Offset(x + 1).Value = Controls("TextBox" & x).Value
Next x
Sheets("invoerblad").Activate
Application.ScreenUpdating = True
Exit Sub
msg:
MsgBox "Alle vragen zijn nog niet beantwoord."
Exit Sub

End Sub

 

[LucB]

Michel,

Voeg deze code toe aan de code die hier vermelde.

Private Sub Textbox1_Change()
If Textbox1.Value > 3 Then MsgBox "Fout!, 1,2 of 3 invoeren"
End Sub
Private Sub Textbox2_Change()
If TextBox2.Value > 3 Then MsgBox "Fout!, 1,2 of 3 invoeren"
End Sub
Private Sub Textbox3_Change()
If TextBox3.Value > 3 Then MsgBox "Fout!, 1,2 of 3 invoeren"
End Sub
Private Sub Textbox4_Change()
If TextBox4.Value > 3 Then MsgBox "Fout!, 1,2 of 3 invoeren"
End Sub
Private Sub Textbox5_Change()
If TextBox5.Value > 3 Then MsgBox "Fout!, 1,2 of 3 invoeren"
End Sub
Private Sub Textbox6_Change()
If TextBox6.Value > 3 Then MsgBox "Fout!, 1,2 of 3 invoeren"
End Sub
Private Sub Textbox7_Change()
If TextBox7.Value > 3 Then MsgBox "Fout!, 1,2 of 3 invoeren"
End Sub
Private Sub Textbox8_Change()
If TextBox8.Value > 3 Then MsgBox "Fout!, 1,2 of 3 invoeren"
End Sub
Private Sub Textbox9_Change()
If TextBox9.Value > 3 Then MsgBox "Fout!, 1,2 of 3 invoeren"
End Sub
Private Sub Textbox10_Change()
If TextBox10.Value > 3 Then MsgBox "Fout!, 1,2 of 3 invoeren"
End Sub
Private Sub Textbox11_Change()
If TextBox11.Value > 3 Then MsgBox "Fout!, 1,2 of 3 invoeren"
End Sub
Private Sub Textbox12_Change()
If TextBox12.Value > 3 Then MsgBox "Fout!, 1,2 of 3 invoeren"
End Sub
Private Sub Textbox13_Change()
If TextBox13.Value > 3 Then MsgBox "Fout!, 1,2 of 3 invoeren"
End Sub
Private Sub Textbox14_Change()
If TextBox14.Value > 3 Then MsgBox "Fout!, 1,2 of 3 invoeren"
End Sub
Private Sub Textbox15_Change()
If TextBox15.Value > 3 Then MsgBox "Fout!, 1,2 of 3 invoeren"
End Sub

 

[mtb]

Goedemiddag Luc


Een vooruitziende blik met 'we meet again' zoals ik bij het vorige probleem al zei

Zoals ik gewend ben van jouw voldoet ook dit aan mijn wensen, maar nu kan ik ook het cijfer 0 invoeren terwijl ik alleen wil dat er alleen 1, 2 of 3 ingevoerd kan worden.


Michel

 

[LucB]

Michel,

Dit is de aanpassing voor TextBox1.

Private Sub Textbox1_Change()
If Textbox1 < 1 Or Textbox1 > 3 Then MsgBox "Fout!, 1,2 of 3 invoeren"
End Sub

De 14 volgende TextBoxen kun je zelf wel aanpassen.

Succes.

 

[mtb]

Luc,

dat is hem, thanks

:thumb: