cel maximaal 20 caracter invoer

[Tegno]

Hallo allemaal,

Met validatie kan je de invoer beperken tot een aantal characters.
Echter kan je daar alleen een melding en foutmelding aan koppelen.
Dit is helaas te om zijlen.

Is er een mogelijkheid om in een cel via VB de invoer van een paar cellen tijdens het typen al te stoppen bij 20+ characters.

 

[jgkdrt]

Als je de Stijl van de gegevensvalidatie op Stop zet, kun je er niet omheen.

Met VBA zal niet lukken wat je vraagt, omdat tijdens typen VBA niet wordt getrggerd.

 

[AD1957]

misschien zo ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing And Len(Target) > 20 Then
    Target = Left(Target, 20)
End If
End Sub

 

[Tegno]

AD1957,

Dit werkt ook.
is hij ook zo te maken dat je niet verder kan typen als de 20 characters gebruikt zijn??

 

[jgkdrt]

Nee, dat kan niet met VBA en dat was wat ik bedoelde met:
Met VBA zal niet lukken wat je vraagt, omdat tijdens typen VBA niet wordt getriggerd.

 

[snb]

Het kan in VBA met een ActivX tekstvak, met maxlength =20.
Dat kan een gebruiker niet omzeilen.

 

[jgkdrt]

@snb, die omweg had ik niet aan gedacht maar omzeilen kan nog steeds door te typen in de linked cel.

 

[snb]

Het is altijd beter een gebruiker alleen maar te laten kiezen uit geldige waarden.

 

[JEC.]

Bijvoorbeeld

 

[Tegno]

allemaal bedankt voor de hulp,

Ik ga de oplossing van Albert gebruiken. dit is de beste optie voor ons.