Tekst (aantal tekens) in een cel beperken

[fmeca]

Hallo,

Voor een conversie programma heb ik in een cel meerdere gegevens, door een komma gescheiden.
Ik wil deze inhioud converteren naar bijv. max. 40 tekens.

Voorbeeld:
tekst" ik, wil, deze, tekst, maximaliseren, tot, maximaal, 40, tekens

Conversie moet leveren:
"ik, wil, deze, tekst, maximaliseren, tot" Dit zijn precies 40 tekens

Bij 39 tekens zou dit: "ik, wil, deze, tekst, maximaliseren" worden

m.a.w. De tekst begrenzen tot 40 karakters tot de laatste komma < 40 tekens!

THX

 

[Niels28]

Met een macro

Sub Lengte_tekst()
For Each cl In Range("A1:A500").SpecialCells(2)
If Len(cl.Value) > 40 Then
    c01 = Split(cl.Value, ",")
    For i = 0 To UBound(c01)
        If Len(c02) + Len(c01(i)) <= 40 Then c02 = c02 & c01(i) & ","
    Next
    cl.Value = Left(c02, Len(c02) - 1)
End If
Next
End Sub

Of met een eigen gemaakte functie.

Function max_lengte_tekst(Tekst As Range, Lengte As Integer) As String
    c01 = Split(Tekst.Value, ",")
    For i = 0 To UBound(c01)
        If Len(c02) + Len(c01(i)) <= Lengte Then c02 = c02 & c01(i) & ","
    Next
    max_lengte_tekst = Left(c02, Len(c02) - 1)
End Function

Niels

 

[WHER]

Of met een formule (er van uitgaande dat er geen dollartekens voorkomen in de tekst)

 

[Niels28]

@ Wher

Geweldige formule hoe verzin je het??? :thumb::thumb:
Misschien dat er nog gecontroleert moet worden op de lengte van de tekst voor het geval dat de tekst minder dan 40 tekens heeft , anders wordt ook de tekst na de laatse (,) weggelaten

Niels

 

[WHER]

Inderdaad, kleine aanpassing aan het bestand in post 3.

 

[fmeca]

Opgelost:

Jongen hartelijk bedankt voor de snelle reactie.

Ik dank jullie allen voor de moeite mar ik ga voor de oplossing van WHER.
Werkt precies zoals ik bedoel.

Nogmaals bedankt.