Getal TextBox moet tussen de 1 en 2000 liggen

[ReneRijk]

Hoi Allemaal,

Ik heb een TextBox waarin een cijfer moet komen.
Dit cijferl mag niet lager dan 1 zijn en niet hoger dan 2000.
Hoe kan ik dit met VBA regelen?

Range("A5").Value = TextBox2.Value

Deze Value wordt nu dus in CEL A5 ingevuld. Maar kijkt niet of het getal wel tussen de 1 en 2000 ligt.

Alvast bedankt voor het meedenken.

Peace,
René Rijk. :thumb:

 

[huijb]

Je zegt zelf dat het om VBA gaat, waarom dan plaatsen in Excel. Verplaatst dus.

 

[BromsnorII]

met if then?

Hi

Als de waarde kleiner is dan 1 of groter daan 2000, wat moet e dan gebeuren.

If TextBox2.Value < 1 Then
   TextBox2.Value=1
 Elseif TextBox2.Value >2000 Then
   TextBox2.Value=2000
End If

Range("A5").Value = TextBox2.Value

Nu werdt in geval van groter dan 2000, 2000 ingevuld en kleiner dan 1, 1 ingevuld

Succes
Sietse

 

[ReneRijk]

Bedankt voor de reactie.

Als de waarde buiten deze range ligt, dan moet er een msgbox komen die de user verteld dat de waarde dus tussen de 1 en 2000 moet zijn

Peace,
René Rijk. :thumb:

 

[snb]

Je kunt in cel A5 valideren op een numerieke waarde.
Met een spinbutton kun je een onder- en bovengrens instellen.
In een combobox kun je een lijst van alle toegestane getallen hangen.
En waarom een tekstvak gebruiken voor de invoer van een getal ?

 

[BromsnorII]

Je zou onderstaande code kunnen proberen.

Private Sub CommandButton1_Click()
If TextBox2.Value < 1 Or TextBox2.Value > 2000 Then
    fout
Else
   Range("A5").Value = TextBox2.Value
End If

End Sub

Sub fout()
antwoord = MsgBox("Waarde moet liggen tussen 1 en 2000", vbOKOnly, "Verkeerde waarde")
End Sub

Ik zou eerlijk gezegt geen makkelijker manier weten om een gatal in te voeren dan een textbox....?

 

[huijb]

@BromsnorII zou je de link even willen doorlezen en vooral m.b.t. het plaatsen van codes http://www.helpmij.nl/forum/showthread.php?t=321171

 

[BromsnorII]

Sorry,

even om te oefenen.... de code...

Private Sub CommandButton1_Click()
If TextBox2.Value < 1 Or TextBox2.Value > 2000 Then
    fout
Else
   Range("A5").Value = TextBox2.Value
End If

End Sub

Sub fout()
antwoord = MsgBox("Waarde moet liggen tussen 1 en 2000", vbOKOnly, "Verkeerde waarde")
End Sub

En verder realiseerde ik mij dat je verwijzingen naar een cell ook kunt doen met [ ]
Dus,

Range("A1")=5

kan ook met

[a1]=5

Groet,
Sietse

 

[ReneRijk]

nogmaals bedankt voor de hulp.
Hier kan ik wel wat mee en ben ik weer wat wijzer betreft VBA..

Peace,
Rene Rijk. :thumb: