characters tellen tijdens typen

[Tegno]

Is het mogelijk om karakters te tellen in een cel.
zoals =Lengte(C2) deze werkt alleen bij het enteren
ik zou graag willen zien tijdens typen hoeveel karakters ik gebruik. Want als ik boven de 40 (cel beveiligd tegen te veel karakters) kom en enter, leegt hij mijn cel omdat de doorvoer naar ons ERP programma in die cel maar 40 karakters mag hebben.

 

[AHulpje]

Zo misschien (geldt hier alleen voor kolom C)?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        If Len(Target.Value) > 40 Then
            Target.Value = Left(Target.Value, 40)
            MsgBox "Te lange tekst afgekapt"
        End If
    End If
End Sub

 

[edmoor]

En wat leegt dan de cel?
Excel doet dat niet.

 

[edmoor]

Zo misschien (geldt hier alleen voor kolom C)?

Vergeet de Application.EnableEvents niet.

 

[AHulpje]

De Worksheet_Change event wordt uiteraard twee keer getriggerd, maar daar merk je niets van.
Maar als je dat wilt voorkomen:

            Application.EnableEvents = False
            Target.Value = Left(Target.Value, 40)
            Application.EnableEvents = True

Het is mij echter wel eens overkomen dat er na Application.EnableEvents = False een crash optrad waardoor geen enkele event meer werd getriggerd, vandaar. Als je echter dreigt in een oneindige loop terecht te komen is het wel aan te raden Application.EnableEvents = False te gebruiken.

 

[snb]

ons ERP programma in die cel maar 40 karakters mag hebben

Die systemen bestaan dus nog ?

 

[Tegno]

Die systemen bestaan dus nog ?

Ja en het is nog een Nieuw Erp van Vorig jaar

 

[E v R]

Als je per se tijdens het typen de lengte wilt zien, dan moet je zorgen dat je in een Textbox (activeX) typt, dan kun je met (oa) KeyUp-event de lengte monitoren

 

[edmoor]

AHulpje heeft ook al een correcte oplossing geboden.

 

[E v R]

ik zou graag willen zien tijdens typen hoeveel karakters ik gebruik.

Dat doet de oplossing van AHulpje toch niet? Vandaar m'n suggestie

 

[edmoor]

Eens.
Maar dan kan het zonder tekstbox, zodat het in ieder geval voor het externe programma ok is.

 

[snb]

Laat de applicatiebeheerdeer van het ERP-systeem de lengte-instelling van dit veld aanpassen van 40 naar 300.

 

[Tegno]

Als je per se tijdens het typen de lengte wilt zien, dan moet je zorgen dat je in een Textbox (activeX) typt, dan kun je met (oa) KeyUp-event de lengte monitoren

Ik ga je mogelijke oplossing uitproberen.
Voor zover bedankt voor alle reacties

 

[alphamax]

Laat de applicatiebeheerdeer van het ERP-systeem de lengte-instelling van dit veld aanpassen van 40 naar 300.

Ook bij 300tekens moet je tellen.
En wie gaat die 300tekens allemaal lezen.
Eenmaal een ERP-systeem ingericht kan je de lengte zeer moeilijk aanpassen.
Ook omdat picklijsten op papier worden geprint en er geen 300tekens naast elkaar op een a4-tje passen.

Ik werk dagelijks met een ERP-systeem (10jaar, SAP) met 40tekens, en dat is inderdaad te weinig.
Op den duur moet je met allerlei afkortingen werken, zoals ELVZ voor "elektrolytisch verzinkt", voor bouten, moeren en schroeven.
Met 60 tot 80tekens kan je net wat meer informatie kwijt en kan je deze toch op een A4-tje printen.

 

[snb]

Het lijkt de oertijd wel (bij Nedschroef ?) met max. 80 posities op een ponskaart.