Keypres voor textbox dynamisch maken

[WillemSchaaper]

Hallo Allemaal. Ben een tijdje uit de roulatie geweest. Ik heb het volgende probleem. Op een formulier staan ongeveer 25 textboxen, waar alleen getallen ingevoerd moegen worden. Ik vang dit af met de volgende code
Private Sub KW12_Stand5_Slijpen_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then
MsgBox "U mag hier alleen getallen invullen!", vbExclamation + vbOKOnly, "Invul fout"
KeyAscii = 0
End If
End Sub
Deze code moet ik 25 keer in kloppen
Kan ik dit dynamisch maken zodat ik niet 25 keer dezelfde code in moet kloppen.

Alvast bedankt voor de reacties

 

[Jan van Asseldonk]

Maak van de controle een aparte sub en roep deze aan.

Private Sub KW12_Stand5_Slijpen_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then
MsgBox "U mag hier alleen getallen invullen!", vbExclamation + vbOKOnly, "Invul fout"
KeyAscii = 0
End If
End Sub

wordt dan

Private Sub KW12_Stand5_Slijpen_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
controle
End Sub

Private Sub controle()
If KeyAscii < 48 Or KeyAscii > 57 Then
MsgBox "U mag hier alleen getallen invullen!", vbExclamation + vbOKOnly, "Invul fout"
KeyAscii = 0
End If
End Sub

Als je de controle meteen wilt doen zul je de code voor elke tekstbox apart op moeten geven maar je kunt wel controle telkens opnieuw aanroepen. Maak wel de variabele KeyAscii Public, dat werkt gemakkelijker.