Piet

Sub beperkcijfers()
    Dim str As String, komma As Integer
    str = ActiveCell.Value
    komma = InStr(1, str, ",")
    If komma <> 7 Or Len(str) <> 10 Then
        MsgBox "Voer een geldig getal in."
    End If
End Sub

WG

dat laatste moet Len(str) > 10 zijn ipv <>

Eh ja, natuurlijk stom van me, beetje te snel gereageerd... de originele code is goed, maar de controle mag pas gebeuren bij het verlaten van de textbox, niet bij het invoeren. Helaas weet'k niet goed wat de mogelijkheden zijn met VBA - misschien is er een validating-event van de textbox waar je dit in kan plaatsen?

Ik wil de invoer van een textbox beperken, ik heb tot nu toe wel de code voor alleen cijfers, ...

Zet mijn code bij die van jou en klaar is kees normaal gezien.

WG

Zoals ik al zei, kopieer mijn code bij die van jou. Dan zou het moeten werken. Is dit niet zo, post dan je eerdere code. Zo kunnen we niet veel helpen hé als we je code niet zien.

WG

Wel, alles onder de 'end with' kan je niet gebruiken op die plaats...  bekijk het even: als er nog maar één letter ingevuld is, staat er geen komma op plaats 7 en verschilt de lengte sowieso van 10.

Zoals ik hierboven zei - wat je dus nodig hebt is niet enkel de Change event, maar ook de Validating event. Dat is een event dat aangeroepen wordt wanneer je de tekstbox verlaat (omdat je naar iets anders springt, maar ook vb wanneer je het programma wil verlaten), en je de kans geeft om de data te valideren en eventueel de gebruiker te verplichten om in de tekstbox te blijven.

Piet

Test dit eens uit en rapporteer de resultaten.

Private Sub TextBox15_Change()
    Dim str As String, komma As Integer
    With Me.ActiveControl
    komma = InStr(1, .Value, ",")
        If Not IsNumeric(.Value) Or .Value = vbNullString Or komma <> 7 Or Len(str) < 10 Then
            MsgBox "Sorry, alleen cijfers toegestaan"
            .Value = vbNullString
        End If
    End With
End Sub

WG