Zin/tekst verkorten

[rvt1982]

Beste Leden,

Een hele simpele korte vraag waar ik zelf niet uit kom.

Ik heb als voorbeeld op A1 de volgende zin: "Leuke plaatjes en teksten"
nu wil ik alleen de eerste 3 woorden van deze zin willen gebruiken om elders weg te schrijven...

of te wel "Leuke plaatjes en"

Moet echt de woorden tellen ipv letters..

Alvast bedankt.

 

[HSV]

In een UDF.

Function splits(rng As Range) As String
Dim sn
sn = Split(rng)
 splits = sn(0) & " " & sn(1) & " " & sn(2)
End Function

Of in een sub.

Sub hsv()
Dim sn
sn = Split(Range("A1"))
  Range("B1") = sn(0) & " " & sn(1) & " " & sn(2)
End Sub

 

[rvt1982]

Thanks, dit is bijna wat ik bedoel... is het ook mogelijk van 1 t/m 3 ?
omdat ik de praktijk de teksten wat langer zijn... anders krijg ik een hele lange " sn(0) & " " & sn(1) & " " & sn(2) "

 

[HSV]

Het maakt niet uit hoe lang de teksten zijn.
Wat bedoel je eigenlijk met 1 t/m 3.
De cellen B1:B3 ?

 

[rvt1982]

Ik bedoel ivm " sn(0) & " " & sn(1) & " " & sn(2) " enz enz enz, maar sn(0):sn(3)
gezien sommeige regels 10 a 15 woorden zijn..

 

[HSV]

Moet misschien alleen het laatste woord komen te vevallen?

 

[rvt1982]

nee, soms is het de laatste, maar soms ook op de helft... het is maar net hoelang de zin is en of deze op de regel past...

 

[HSV]

Met deze UDF kan je het zelf invullen.

Function splits(rng As Range, aantal_woorden As Long) As String
Dim sn, j As Long
sn = Split(rng)
For j = 0 To aantal_woorden - 1
   splits = splits & sn(j) & " "
 Next j
End Function

 

[rvt1982]

thanks, dit is hem :thumb: