Bestaande tekst in cel met terugloop vervangen door harde return

[snb]

Cobbe vertoeft in Vlaanderen; ik niet.

 

[Cobbe]

Nou, nou als ik zo eens rond mij kijk zie ik toch nog wel een massa Vlamingen rond om mij.
Dus om nu te stellen dat ik alléén in Vlaanderen zou vertoeven is toch op zijn minst sterk overdreven.

 

[snb]

Wonen er nog meer Vlamingen bij je in de buurt dan ?

 

[Cobbe]

Haha, soms meer dan mij lief is.

 

[snb]

Toch vind ik deze beter:

Sub M_snb()
   sn = Columns(3).SpecialCells(2)
   
   For j = 2 To UBound(sn)
     If Len(Trim(sn(j, 1))) > 30 Then
       st = Split(Trim(sn(j, 1)))
       c00 = ""
       
       For jj = 0 To UBound(st)
         c00 = c00 & IIf(InStr(StrReverse(vbLf & c00), vbLf) + Len(st(jj)) > 29, vbLf, IIf(c00 = "", "", " ")) & st(jj)
       Next
       
       sn(j, 1) = c00
     End If
   Next
   
   Cells(1).Resize(UBound(sn)) = sn
End Sub

 

[radar]

Neem ik onmiddellijk van je aan snb, maar in het resultaat kan ik het verschil niet ontdekken...

Radar

 

[snb]

In resultaat is er ook geen verschil.