Spatie verwijderen

[don42]

Hoi allemaal

Ik wil graag van de tekst in een cel het eerste woord een spatie en vervolgens alle spaties wissen

jan janssen blijft dan gelijk

maar jan de janssen wordt : Jan dejanssen
of jan van de janssen wordt jan vandejanssen
heb dit nodig voor het omzetten naar mailadressen van mijn werk

ik vind van alles op het net om spaties te wissen maar wil graag de eerste behouden
Wie weet hoe dit moet?

 

[Joske2000]

Zonder voorbeeldbestandje,

Gokje :

=LINKS(A1;VIND.SPEC(" ";A1;1)-1)&" "&DEEL(SUBSTITUEREN(A1;" ";"");VIND.SPEC(" ";A1;1);LENGTE(A1)-VIND.SPEC(" ";A1;1))

Gr,

Joske

 

[don42]

Briljant
dank u

 

[AlexCEL]

Iets korter:

=VERVANGEN(SUBSTITUEREN(A1;" ";"");VIND.SPEC(" ";A1);0;" ")

 

[JEC.]

Function jv(Cell)
c00 = Split(Cell)
  For i = 1 To UBound(c00)
   c01 = c01 & c00(i)
  Next
  jv = c00(0) & " " & c01
End Function

Invullen als

=jv(A1)

 

[don42]

In VBA zou helemaal mooi zijn maar deze begrijp ik niet

ik heb de namen van de collegae in kolom C2 t/m C105
en wil de aangepaste namen in D2 t/m d 105

zou je mij dit aub kunnen uitleggen
hoe te handelen

 

[JEC.]

De functie plak je in een module en daarna kun je die formule aanroepen door =jv(C2) in D2 te zetten.

 

[don42]

Gelukt.
Werkt perfect.
iedereen bedankt voor de hulp
:thumb:

 

[JEC.]

Nog eentje dan. Als je deze runt zullen de namen direct goed gezet worden binnen dezelfde kolom. Dus je hebt geen extra kolom nodig.

Sub splitten()
  For Each Cell In Range("C2:C105").Cells
     c00 = Split(Cell)
       For i = 1 To UBound(c00)
        c01 = c01 & c00(i)
       Next
    Cell.Value = c00(0) & " " & c01
    c01 = ""
  Next
End Sub

 

[HSV]

UDF

Function hsv(cl) As String
 s0 = Split(cl)(0)
 hsv = s0 & " " & Replace(Replace(cl, s0, "", 1), " ", "")
End Function

 

[VenA]

E-mail adressen mogen nooit spaties bevatten. Daarom worden er punten of liggende streepjes ( _ ) of ( - )gebruikt om de woorden en namen te scheiden.

Bron https://www.seniorennet.be/Pages/Thuis_op_internet/hfst6/6.2.php#:~:text=Het%20apenstaartje%20staat%20voor%20het,woorden%20en%20namen%20te%20scheiden.