Input Msgbox testen op correcte inhoud.

[stefano]

Sub Stefano()
    Dim charge As String
    charge = InputBox("Info voor certificaat", "Geef chargenummer in", "Chargenummer")
    Sheets("historiek").Select
    Range("b2").Value = charge

End Sub

Een charge bestaat uit een code van 10 karakters/cijfers. Hoe kan ik dit aantal karakters testen bij ingeven door een user?

 

[NogGeenGuru]

Je kan LEN (lengte) gebruiken om de lengte te controleren.

If LEN(charge) = ToegestaneLengte then...

 

[stefano]

Tja, ok, maar ...

Sub Stefano()
    Dim charge As String
    charge = InputBox("Info voor certificaat", "Geef chargenummer in", "Chargenummer")
[COLOR="#FF0000"]    if len(charge) <> 10 then ????[/COLOR]
    Sheets("historiek").Select
    Range("b2").Value = charge

End Sub

 

[gast0660]

Sub Stefano()
Dim charge As String
    charge = InputBox("Info voor certificaat", "Geef chargenummer in", "Chargenummer")
    If Len(charge) <> 10 Then
    MsgBox "Het chargenummer is niet correct!", vbCritical, "Fout!"
    Exit Sub
Else
    With Sheets("historiek")
    .Range("b2").Value = charge
    End With
End If
End Sub