inhoud cel splitsen

[Trmgroot]

Beste,

De inhoud van een cel moet in mijn sheet gesplitst worden, vanaf de eerste letter in de cel. Is hier een handige formule voor?

nu:
16 (fout notaris)
10tz2,15ne4,5,12,14
2e1
3e1(1e)m2
3e1(1e)m2

Moet worden:
16 en (fout notaris)
10 en (tz2,15ne4,5,12,14
2 en e1
3 en e1(1e)m2
3 en e1(1e)m2

 

[edmoor]

Je kan beter je voorbeeld in een Excel document zetten en deze dan hier plaatsen.

 

[Trmgroot]

Die bevat 260.000 records...

 

[Trmgroot]

Maar goed, hierbij de eerste 4 records
Bekijk bijlage voorbeeld.xlsx

 

[VenA]

Kan je de verwachte uitkomst even in het bestand zetten. Kolom K en L zijn nu hetzelfde en dat maakt het niet veel duidelijker.

 

[WHER]

Een mogelijke aanpak, zie bijlage:

 

[HSV]

Of:

Sub hsv()
Dim i As Long
 With CreateObject("VbScript.RegExp")
  .Global = True
    For i = 1 To Sheets("Blad1").Cells(Rows.Count, 12).End(xlUp).Row
      .Pattern = "(^[0-9]{1,})"
      Sheets("Blad1").Cells(i, 13) = .Replace(Cells(i, 12), "$1" & " en ")
    Next
 End With
End Sub