Tekst delen in maximaal 40 karakters en afbreken

[JEC.]

Matrixformules gaan 10.000 rijen ook niet leuk vinden

 

[snb]

In begrijp niets van je 'uitleg'.

Maar krijg in het bestand met mijn UDF exact wat je wil.

 

[sylvester-ponte]

snb, probeer deze zin eens uit "hottentottensoldatententoonstellingenbus en nog een hottentottensoldatententoonstellingenbus"

ps deze doet het anders :

 

[snb]

@sylv,

Dat is geen zin.
Evenmin een van de voorbeeldzinnen van TS.
De aangereikte suggestie is voor het vraagstuk van TS bedoeld, niet voor een theoretische, niet voorkomende situatie.

 

[sylvester-ponte]

ok, probeer deze dan eens: ( met een typfoutje afgekap is plat haags) "dit is een voorbeeld tekst welke afgekap moet worden"

 

[sylvester-ponte]

hij ging in de mijne ook fout

hier de verbeterde versie

 

[snb]

Function F_snb(c00)
  x = 1
  For j = 1 To Len(c00)
    If Mid(c00, j, 1) = " " Then y = j
    If x Mod 40 = 0 Then
      c00 = Left(c00, y - 1) & "|" & Mid(c00, y + 1)
      x = j - y
    Else
      x = x + 1
    End If
  Next
    
  F_snb = Split(c00 & "||", "|")
End Function

 

[cow18]

we zijn aan het freewheelen !
TS is, ondanks onze opmerkingen, niet klaar voor VBA en wil formules.
We zijn hem al enkele reacties geleden verloren.

 

[sylvester-ponte]

snb, ik in het geel jouw function toegevoegd hij breekt nog stees te vroeg af.

 

[sylvester-ponte]

deze werkt zowel in 2010 als in 365 zonder matrixformules

deze udf is net zo als elke andere excel tenfunctie gebruiken.

zie voorbeeld.

 

[snb]

Tenslotte:

 

[sylvester-ponte]

sorry snb, hij breekt nog steeds na 39 af ipv na 40

 

[snb]

Een kwestie van zelf aanpassen. Het gaat primair om de methodiek.

 

[kom123wil]

we zijn aan het freewheelen !
TS is, ondanks onze opmerkingen, niet klaar voor VBA en wil formules.
We zijn hem al enkele reacties geleden verloren.

Hoi Cow18,
Ik heb het even druk gehad. Ik onderstreep je reactie. Ik ben niet bekend met VBA en niet zo thuis in macro's. Inderdaad was mijn wens een formule die ik universeel kan toepassen.