Tekst omzetten naar kolommen en rijen

[deadbeauty]

Beste,

Is er een mogelijkheid om tekst die ik heb helemaal te verzetten naar kolommen EN rijen?
ik vond de optie tekst naar kolommen. heb die nog niet geprobeerd maar naar rijen kan sowieso niet dan?

mvg

 

[Roncancio]

Heb je een voorbeeldbestand zodat we kunnen zien hoe het eruit ziet.
Het zou ook makkelijk zijn als je in het bestand aangeeft hoe je het als resultaat wilt hebben.

Met vriendelijke groet,


Roncancio

 

[deadbeauty]

Bij deze het voorbeeld bestand !!

Het is een tekst bestand in 1 cel.

Elke 12 rijen is 1 ral kleur specificatie. (na opdracht tekst naar kolommen)
In totaal 180 rals achter elkaar dus.

Dus ik zou graag willen dat hij de tekst van 12 kolommen verdeelt en vervolgens elke 12 volgende cellen een rij naar beneden verplaatst.
Dus krijg ik uiteindelijk

RAL 1000 bla bla bla bla
RAL 1001 bla bla bla bla
Etc.

groetjes

 

[Roncancio]

Er vanuit gaande dat de tekst in cel A1 staat:

Sub tellen()
Dim iTel As Integer
Dim iPos As Integer
    iTel = 2
    iPos = 2
    While Len(Range("A1")) > iPos
        iPos = WorksheetFunction.FindB("RAL", Range("A1").Text, 2)
        Range("A" & iTel).Value = Left(Range("A1").Text, iPos - 1)
        Range("A1") = Mid(Range("A1").Text, iPos, Len(Range("A1").Text))
        iTel = iTel + 1
    Wend
    With ActiveSheet.Range("A1:A" & iTel)
        .Sort key1:=Range("A1")
        .TextToColumns Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Space:=True
    End With
End Sub

Bovenstaande code zet de RAL-gegevens in de cellen vanaf A2, sorteert het bereik en verdeelt de gegevens over de kolommen.

Met vriendelijke groet,


Roncancio

 

[deadbeauty]

ik ben niet zo thuis in macro's maken, bij 2003 kon je dat toch via visual basic bij extra's ofzo.

hoe doe ik het bij 2007? makkelijker even vragen dan een halfuur excel doorspitten.

thx

 

[Roncancio]

ik ben niet zo thuis in macro's maken, bij 2003 kon je dat toch via visual basic bij extra's ofzo.

hoe doe ik het bij 2007? makkelijker even vragen dan een halfuur excel doorspitten.

thx

Staat er op het lint Ontwikkelaars?
Daar moet geplaatst worden.

Met vriendelijke groet,


Roncancio

 

[deadbeauty]

Nee, vind geen 'Ontwikkelaars'

Ligt dat aan de versie? ofzo

 

[Roncancio]

Nee, vind geen 'Ontwikkelaars'

Ligt dat aan de versie? ofzo

Nope, dit moet je dan nog toevoegen via:
Office-knop - Opties voor Excel - Tabblad Ontwikkelaars op het scherm weergeven en klik op OK.

Met vriendelijke groet,


Roncancio

 

[deadbeauty]

SUPER !! gelukt