Ga naar inhoud

Cel splitsen in verschillende rijen


andreavdg
 Delen

Aanbevolen berichten

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

5aedb754d2417_ScreenShot020.thumb.JPG.f58b3d863bd9999f1fd06e84910c66ac.JPG

 

Voorbeeld 2

Screen Shot 019.JPG

Screen Shot 021.JPG

aangepast door andreavdg
Link naar reactie
Delen op andere sites

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?

Link naar reactie
Delen op andere sites

Geplaatst: (aangepast)

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

 

aangepast door andreavdg
Link naar reactie
Delen op andere sites

- 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.

 

 

Link naar reactie
Delen op andere sites

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

 

 

Link naar reactie
Delen op andere sites

- 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?

 

Link naar reactie
Delen op andere sites

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

 

Link naar reactie
Delen op andere sites

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

Link naar reactie
Delen op andere sites

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

5aeef0591438f_ScreenShot029.thumb.JPG.1048ae8a175fc5b226e8b630112e21f8.JPG

 

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

5aeef01378060_ScreenShot030.thumb.JPG.e51b238adf5e655b3d4e28fbdc3cf6d1.JPG

Link naar reactie
Delen op andere sites

Gast
Dit topic is nu gesloten voor nieuwe reacties.
 Delen

×
×
  • Nieuwe aanmaken...