tekst scheiden

[ronsom]

goedemorgen,

met welke formule kan ik de voornaam van de achternaam scheiden.
Dus JanJansen naar Jan Jansen of PietKeizer naar Piet Keizer

 

[OctaFish]

Niet; als alle namen aan elkaar geplakt zijn zonder spatie, kun je het beste een functie maken die de inhoud van de cel controleert op hoofdletters, en op basis van een hoofdletter spaties toevoegt. Hoe dat gaat uitpakken met tussenvoegsels is dan weer een heel ander verhaal natuurlijk.

 

[Senso]

Hier staat een interessant artikel. Het is triest dat Google een dergelijke simpele vraag niet begrijpt en dan maakt het niet uit of er een oplossing voor is.

 

[JEC.]

Kan heel simpel met PowerQuery

 

[JEC.]

Formule
Met in A2 de naam

Voor in B2:

=LINKS(A2;MIN(ALS(ISFOUT(VIND.ALLES(TEKEN(RIJ(INDIRECT("65:90")));DEEL(A2;2;30)));"";VIND.ALLES(TEKEN(RIJ(INDIRECT("65:90")));DEEL(A2;2;30)))))

Voor in C2:

=RECHTS(A2;LENGTE(A2)-LENGTE(B2))

 

[JEC.]

Indirect in de eerste formule niet nodig

=LINKS(A2;MIN(ALS(ISFOUT(VIND.ALLES(TEKEN(RIJ($65:$90));DEEL(A2;2;30)));"";VIND.ALLES(TEKEN(RIJ($65:$90));DEEL(A2;2;30)))))

Wel matrix formule trouwens (contr. shift. enter afsluiten)

 

[Senso]

Volgens mij is dat niet de bedoeling. Het moet toch in één cel?

 

[popipipo]

=b2&" "&c2

 

[JEC.]

=LINKS(A1;MIN(ALS(ISFOUT(VIND.ALLES(TEKEN(RIJ($65:$90));DEEL(A1;2;30)));"";VIND.ALLES(TEKEN(RIJ($65:$90));DEEL(A1;2;30)))))&" "&RECHTS(A1;LENGTE(A1)-LENGTE(LINKS(A1;MIN(ALS(ISFOUT(VIND.ALLES(TEKEN(RIJ($65:$90));DEEL(A1;2;30)));"";VIND.ALLES(TEKEN(RIJ($65:$90));DEEL(A1;2;30)))))))

Alstu

 

[JEC.]

Function Hoofdlettersplit(ByVal S As String) As String
  Dim X As Long
  For X = Len(S) To 2 Step -1
    If Mid(S, X, 1) Like "[A-Z]" Then S = Application.Replace(S, X, 0, " ")
  Next
  Hoofdlettersplit = S
End Function

Of zet deze in een module en gebruik die functie

 

[ronsom]

Nou dat zijn een hoop oplossingen, de laatste is wel erg handig.
Ik ga ermee aan de slag. Hartelijke dank JVeer

 

[HSV]

Beiden zonder elke letter bij langs te gaan.
Een function van @snb.

Function F_snb(c00)
Dim sn() As Byte
  sn = Mid(c00, 2)
  c01 = Chr(Application.Small(sn, UBound(sn) \ 2 + 2))
  F_snb = Replace(c00, c01, " " & c01)
End Function

En een van mij.

Function hsv(s0) As String
With CreateObject("VBscript.Regexp")
  .Global = True
  .Pattern = "(?=[A-ZÄÖÜ])"
  hsv = Trim(.Replace(Replace(s0, " ", ""), " "))
End With
End Function

 

[OctaFish]

En geen enkele functie of formule lost het probleem “PietdeVisser”. Op .

 

[JEC.]

Inderdaad haha, dat is vrijwel niet te doen

 

[HSV]

Ik heb daar geen probleem mee.