textbox alleen getal tussen 1 en 58

[wilbert1967]

hallo

ik heb internet afgezocht, maar kan niet vinden
hoe ik in een textbox de gebruiker alleen het gehele cijfer tussen 1 en 58 kan laten invullen.

weet iemand hier een oplossing voor?
mvg wilbert

 

[snb]

door geen tekstvak te gebruiken, maar een combobox:

te vullen met combobox1.list=[row(1:58)]

of een kringveld (spinbutton) gekoppeld aan een tekstvak. Het kringveld heeft de eigenschappen min: 1 max: 58

 

[wilbert1967]

ik heb dit als initalisatie

Lb_openvraagnummer.Clear
  With frm_openvragen.Lb_openvraagnummer
     For teller = 1 To 10
      .AddItem teller
     Next teller
  End With

maar als ik dan dit gebruik

Private Sub b_oke_Click()

  If Not IsNumeric(Lb_openvraagnummer) Then
    l_subtekst.Caption = "maak je keuze"
    l_subtekst.Visible = True
    Lb_openvraagnummer.Value = ""
  Else
    waarde = Lb_openvraagnummer.Value
    ActiveWorkbook.Sheets("vragen").Activate
    rij = 120 + teller - 3
    ActiveCell.Offset(rij, 4) = waarde
  End If
  
  Unload frm_openvragen
End Sub

dan wordt de waarde niet gevuld

wat doe ik fout?

 

[Koos Voos]

Bij mij moet er in een userform textveld een getal ingevuld worden dat groter is dan 75 en kleiner dan 100 en dat is op deze manier opgelost

Private Sub NAAMTEXTVELD_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Val(NAAMTEXTVELD) > 100 Or Val(NAAMTEXTVELD) < 75 Then
NAAMTEXTVELD.Text = ""
MsgBox "Getal moet tussen de 75 en 100 zijn."
End If
End Sub

Valt de waarde niet tussen de limieten, komt de foutmelding in (een messagebox in ) beeld en wordt het getal niet in het textveld ingevuld.

Met onderstaande code wordt gecontroleerd wat er ingevuld wordt, alleen 0 t/m 9 mag gebruikt worden en slechts 1x een punt

Private Sub NAAMTEXTVELD_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr(1, NAAMTEXTVELD.Text, ".") > 0 And KeyAscii = Asc(".") Then
        KeyAscii = 0
        Exit Sub
    End If
    Select Case KeyAscii
        Case Asc("0") To Asc("9"), Asc(".")
        Case Else
            KeyAscii = 0
    End Select
End Sub