|
|
|||||||
| Registreer | FAQ | Ledenlijst | Interessegroepen | Kalender | Zoeken | Berichten van vandaag | Markeer forums als gelezen |
|
|
|
Discussietools | Weergave |
|
#11
14 maart 2009, 22:53
|
||||
|
||||
Ellen,
Ik ben erggggggggg druk op dit moment maar ............ waarom Code:
On Error Resume Next Bij1 = CDbl(TBBij1.Value) Af1 = CDbl(TBAf1.Value) On Error GoTo 0 Je kunt ook de Textboxinvoer afvangen en alleen cijfers en punten laten invoeren Code:
Private Sub TelefoonBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If (KeyAscii < 45 Or KeyAscii > 57) And KeyAscii <> 46 Then KeyAscii = Empty End Sub
__________________
Suc6 druk op F1 en lees ! En zie wat de moeder van de meeste oplossingen is. en Worksheet.nl is de dochter Moderator www.worksheet.nl / mr.magoo@worksheet.nl Lees informatieve columns over buitenlandse reizen en wandelingen in Nederland Verrassende columns over het leven van alledag op een camping. Optimistische columns over pubers, ouders en ouderen. op www.jolandacatharina.nl 
|
| Sponsored Links |
|
#12
16 maart 2009, 11:12
|
|||
|
|||
|
Dank je wel voor je uitleg Mr. Magoo. Ik ga er mee aan de gang.
|
 |
| Labels |
| introductie, vba |
| Discussietools | |
| Weergave | |
|
|
|
|||||||
| Registreer | FAQ | Ledenlijst | Interessegroepen | Kalender | Zoeken | Berichten van vandaag | Markeer forums als gelezen |
Lineaire weergave
