Afbreken van regel

[longron]

Beste alle,

ik heb geen flauw idee hoe ik dit moet oplossen.

In een cel staat een tekst die via VBA naar een andere cel met worden gekopieerd. Echter heeft de tekst steeds een andere in lengte en de ruimte in de naar te kopieren cel is steeds hetzelfde. bv 30 karakters.
Hoe kan ik de tekst afbreken en de resterende tekst in de cel eronder invoeren?

Zou graag een voorbeeld willen plaatsen naar echt geen idee om in te voeren.

Groet,
Ronald

 

[JEC.]

Met bijvoorbeeld in A1 de tekst (ik ben in dit voorbeeld even uitgegaan van een vaste lengte van 12 per cel. De gegevens worden weggeschreven vanaf A5 naar beneden)

Sub j()
 For i = 1 To Len(Cells(1, 1)) Step 12
   c00 = c00 & "-" & Mid(Cells(1, 1), i, 12)
 Next
ar = Split(Mid(c00, 2), "-")
Cells(5, 1).Resize(UBound(ar)) = Application.Transpose(ar)
End Sub

 

[longron]

Top. ik ga ermee aan de slag en denk dat ik het verder zo kan aanpassen zoals het voor mijn situatie werkt.

Dank je

Ronald

 

[snb]

Cellen hebben geen vaste tekenlengte.
Welk lettertype gebruik je ?

 

[JEC.]

Ik weet natuurlijk niet wat voor soort tekst je af wilt breken. Maar deze werkt wat beter

 

[cow18]

@JV, je neemt toch nooit een vaak gebruikt teken, zoals "-" als separator !
Gebruik een "|" of een "~" of een ander "normaal nooit gebruikt" teken.

 

[JEC.]

@cow daar kom je snel genoeg achter. T is en blijft een voorbeeld

 

[longron]

Hierbij een voorbeeld.
Afbreken lijkt goed te gaan maar het laatste deel van de tekst komt niet mee....

Graag jullie advies

 

[cow18]

met de macro "test" schrijf je A5 weg, met als fantasietje het 2e deel waar die tekst direkt te lang werd omdat ik alle woorden aan elkaar zette.
Je-had-niet-gezegd-hoe-er-met-die-situatie-moest-omgegaan-worden.

 

[longron]

OOo oke.
ja-dat-was-dus-niet-duidelijk.
Eigenlijk-moet-dus-alle-tekst-worden-afgebroken-tot-de-teskst-op-is.
ik-ga-kijken-thanks

 

[longron]

Top. dat is precies wat ik bedoel.
En nog een mooie uitleg.

Thanks

 

[cow18]

de 2e lijn was wel langer dan de bedoelde 80 karakters.
De vraag was, moet je die dan als geheel weergeven, zoals de macro doet, ofwel op de 80e karakter afbreken.
Maar aangezien het goed was ... .

het foutje bij JVeer, jouw ar begint bij 0, dus moet je er ééntje bij op tellen

Cells(5, 1).Resize(UBound(ar)[COLOR="#FF0000"]+1[/COLOR]) = Application.Transpose(ar)