ExcelTonnie
Gebruiker
- Lid geworden
- 5 jul 2016
- Berichten
- 308
Dag allen
heb 35 invoervelden genaamd TxtLength1 t/m TxtLength35 waarbij elk veld 3 cijfers verplicht moet invoeren.
Nu kan ik 35 maal hetzelfde code invoeren maar kan dit makkelijker.
heb 35 invoervelden genaamd TxtLength1 t/m TxtLength35 waarbij elk veld 3 cijfers verplicht moet invoeren.
Nu kan ik 35 maal hetzelfde code invoeren maar kan dit makkelijker.
Code:
If Len(TxtLength1.Value) <> 3 Then
MsgBox "Lengte bestaat uit 3 cijfers.", vbCritical
Exit Sub
End If
If Len(TxtLength2.Value) <> 3 Then
MsgBox "Lengte bestaat uit 3 cijfers.", vbCritical
Exit Sub
End If