Cellen splitsen

[brop]

Graag zou ik het bijgaande bestand opgesplits zien in twee kollommen
1. Voorletters
2. Achterna(a)m(en)

Ik krijg het wel voor elkaar om het bij de spaties op te splitsen, maar dan krijg ik ook een aparte tabel voor tussenvoegsels en eventuele meerdere achternamen.

Wie kan mij helpen?

Alvast bedankt!

Brop33 / Patricia

 

[Platzii]

Zo dan: (bijlage)

 

[Gert Bouwmeeste]

Zie hier voor een werkend voorbeeldbestand om op verschillende manieren te splitsen.

 

[brop]

Zie hier voor een werkend voorbeeldbestand om op verschillende manieren te splitsen.

Hallo Gert, optie 3 is inderdaad precies wat ik bedoel. Nu nog de vraag hoe doe ik het, want mijn werkelijk bestand is vele malen groter!

Groeten Patricia

 

[Roncancio]

Onderstaande formule scheidt de voor- en achternamen van elkaar adhv je voorbeeldbestand.
De voornamen worden in de B-kolom geplaatst.
De achternamen in de C-kolom.

Sub Namen()
Dim lRij As Long
    lRij = 1
    While Range("A" & lRij).Value <> ""
        Range("B" & lRij).Value = Left(Range("A" & lRij), InStrRev(Range("A" & lRij).Value, ".", -1, vbTextCompare))
        Range("C" & lRij).Value = Mid(Range("A" & lRij), InStrRev(Range("A" & lRij).Value, ".", -1, vbTextCompare) + 3)
        lRij = lRij + 1
    Wend
End Sub

Met vriendelijke groet,


Roncancio