Cel splitsen in verschillende rijen

[andreavdg]

Hallo,

Ik heb eigenlijk 2 vragen maar hieronder mijn eerste vraag:

 

In Excel 2013 heb ik in kolom C met tekst dat in één enkele cel staat met tekstterugloop (zie voorbeeld 1)

Dit zou moeten opgesplitst worden in verschillende rijen zoals in voorbeeld 2.

Iemand die me kan helpen om dit te kunnen uitvoeren via een macro want heb veel worksheets waar dit moet zou moeten veranderd worden.

 

Met veel dank bij voorbaat

Beste groetjes,

Andrea

 

Voorbeeld 1

 

Voorbeeld 2

5 mei 2018 aangepast door andreavdg

[alpha]

1. In welke cel van kolom C staat die tekst (in C8 ?).

2. Is er in kolom C slechts 1 cel waarvan de tekst gesplitst moet worden of zijn er meerdere cellen?

3. Hoe lang (hoeveel tekens) moet na splitsing de tekst in elke cel ongeveer zijn?

[andreavdg]

Dag Alpha,

 

Eerst en vooral hartelijk dank voor je vlugge reactie!

Het is de ganse kolom C. In totaal staan er in deze kolom 385 rijen maar in een volgende worksheet (bv. Blad 2) kunnen er meer of minder rijen staan.

Ik heb hier "tekstterugloop" gebruikt en de kolombreedte op 125 px gezet

Ik hoop dat je hiermee iets kunt doen

 

5 mei 2018 aangepast door andreavdg

[alpha]

- Die 125, dat zijn geen pixels hoor. Maar wil je die breedte voor telkens 1 rij tekst zo houden?

- Welk lettertype en lettergrootte gebruik je voor die tekst?

- Tekstterugloop wil je niet meer neem ik aan? Indien wél, dan moet je aangeven hoeveel tekens je ongeveer in een cel wil.

 

 

[andreavdg]

Oei, ik dacht dat dat pixels waren 

De breedte van de worksheet moet wel op een liggend formaat passen want wordt daarna geprint.

De linker- en rechtermarge = 1 cm.

De kolombreedte van C mag dan eigenlijk 110 zijn of smaller.

Lettertype: Calibri

Lettergrootte: 11

Als het voor jou kan, wil ik de Tekstterugloop liever niet. Dacht dat het niet anders kon en daarom heb ik dat gebruikt.

 

Groetjes,

Andrea

 

 

[alpha]

- Begint de niet-gesplitste tekst in C1 ?

- Als bv. de niet-gesplitste tekst van een cel wél gesplitst uit 9 regels bestaat, moet dan na die 9 regels een lege rij volgen, of moet de tekst van de volgende cel meteen aansluiten?

- Als je wil kan de tekst ook op een staand blad, dan maken we de regels van de gesplitste tekst wat smaller. Wat heeft je voorkeur, staand of liggend?

- De gesplitste tekst wordt naar een ander blad gekopieerd, in welke kolom wil je daar de gesplitste tekst geplaatst zien? Ook in kolom C of in een andere kolom?

 

[andreavdg]

Dag Alpha,

1. De te splitsen tekst begint in C4

2. Er moet geen lege rij volgen maar mag dus aansluiten op de volgende cel

3. Liefst liggend formaat

4. de gesplitste tekst mag terug in kolom C staan als deze naar een ander blad wordt gekopieerd.

 

Groetjes,

Andrea

 

[alpha]

Als de namen van de bladen Blad1 en Blad2 zijn, kun je dit gebruiken:

Sub splits()
Dim L As Integer, lr1 As Integer, lr2 As Integer, m As Integer
Dim mystr1 As String, mystr2 As String, r As Integer, x As Integer
Set sh1 = Sheets("Blad1"): Set sh2 = Sheets("Blad2")
lr2 = 1
With sh2.Columns("c")
.ClearContents
.ColumnWidth = 110
End With
With sh1
lr1 = .Range("c" & .Rows.Count).End(xlUp).Row
End With
For r = 4 To lr1
mystr1 = sh1.Range("c" & r).Value
m = 130: x = 1: L = Len(mystr1)
mystr2 = Left(mystr1, m)
Do While L >= x + m
Do Until Right(mystr2, 1) = Chr(32)
mystr2 = Left(mystr2, Len(mystr2) - 1)
Loop
lr2 = lr2 + 1
sh2.Range("c" & lr2).Value = mystr2
x = x + Len(mystr2)
mystr2 = Mid(mystr1, x, m)
Loop
sh2.Range("c" & lr2 + 1).Value = Right(mystr1, Len(mystr1) - x + 1)
lr2 = lr2 + 1
Next r
End Sub

[andreavdg]

Bedankt Alpha voor je moeite! Maar nu ik de code heb uitgevoerd zie ik dat ik in Blad2 moet zoeken wie bij welke uitspraak hoort.

Dat is niet duidelijk en daarom toch misschien beter om een lege rij tussen elke uitspraak in te voegen, tenminste als dat niet teveel is voor jou.

 

Hieronder screenshot van voorbeeld zonder splitsing in blad1

 

Hieronder voorbeeld van splitsing in blad2 na gebruik van macro waar het dus niet duidelijk is welke uitspraak bij wie hoort

[alpha]

In de derde regel van onder staat: lr2 = lr2 + 1 .

Maak daar van: lr2 = lr2 + 2

6 mei 2018 aangepast door alpha