Een alt enter splitsen

[detroyni]

Beste ik ben me bewust dat deze vraag al eerder is gesteld doch vind k de oplossing niet.
Kan iemand me helpen aub ik zou alle entrys willen splitsen over meerdere kolommen.

 

[JEC.]

Bvb

Sub jec()
 Dim ar, a, i As Long
 ar = Cells(1).CurrentRegion
  
 For i = 1 To UBound(ar)
   a = Split(Join(Application.Index(ar, i, 0), vbLf), vbLf)
   Cells(i, 1).Resize(, UBound(a) + 1) = a
 Next
End Sub

 

[detroyni]

Het gaat over deze file en de aangeboden code werkt me niet goed denk ik, wat moet ik juist doen in visual invoegen, module plakken naar excel gaan en alt enter?

 

[JEC.]

Het is mij niet duidelijk helaas

 

[globe]

Voeg een kolom in naast D (dus lege in E)

plak de volgende formule in cel E3; =SUBSTITUEREN(D3;TEKEN(10);"XXX") en trek deze door naar beneden.
uitkomst plakken als harde waarde en vervolgens met tekst naar kolommen op XXX splitsen.

Dat gaat je wel op weg helpen.

 

[sylvester-ponte]

volgens mijn, doet die van JV het prima zie voorbeeld (ik heb hem onder een knopje gezet)

 

[snb]

Ik vermoed dat de TS iets anders bedoelt dan hij/zij vraagt:

Sub M_snb()
  sn = Sheet1.Cells(1).CurrentRegion
  ReDim sp(10 * UBound(sn), UBound(sn, 2))
  
  For j = 1 To UBound(sn)
    st = Split(sn(j, 4), vbLf)
    sq = Split(sn(j, 5), vbLf)
    
    For jj = 0 To UBound(st)
      For jjj = 1 To 7
        sp(n, Choose(jjj, 0, 1, 2, 5, 6, 7, 8)) = sn(j, Choose(jjj, 1, 2, 3, 6, 7, 8, 9))
      Next
      sp(n, 3) = st(jj)
      sp(n, 4) = sq(jj)
      n = n + 1
    Next
  Next
  
  Sheet2.Cells(1).Resize(UBound(sp), UBound(sp, 2) + 1) = sp
End Sub

 

[sylvester-ponte]

of zo iets?

 

[jkpieterse]

Hoe komen deze gegevens op deze manier in Excel? Misschien moet je daar eerst eens naar kijken?

 

[popipipo]

tekst naar kolommen op XXX splitsen.

Volgens mij gaat dit niet lukken.

 

[globe]

Volgens mij gaat dit niet lukken.

Kun je wel eens een punt hebben. XXX zijn 3 karakters, dat gaat in VBA wel maar niet in de functie Tekst->Kolommen. Dus dan een ; kiezen oid.

=SUBSTITUEREN(D3;TEKEN(10);";")

 

[detroyni]

Hey klopt ik doe het met een | werkt perfect bedankt voor de Info.

=SUBSTITUEREN(D3;TEKEN(10);"|")
Dan van tekst naar kolommen splitsen op de |

Aan allen bedankt voor de hulp.