splitten

[don42]

Beste helpers,

wie helpt mij verder met het volgende
Ik wil graag van namen mailadressen maken
de namen zijn een voornaam. achternaam (en dan maakt het niet uit hoeveel woorden er nog komen en een @......nl
met voornaam achternaam lukt het prima
maar met meer woorden achter de voornaam wordt het een ander verhaal
wie weet hoe
zie bijlage

bvd

 

[edmoor]

Probeer eens of dit doet wat je wilt:

For i = 1 To 3
    Cells(i, 12) = Replace(Cells(i, 1), " ", ".") & "@email.nl"
Next i

 

[don42]

Hoi edmoor,

Nu krijg ik een . tussen de woorden

Jan Janssen = jan.janssen@email.nl

maar: Jan van de pet = jan.vandepet@email.nl

hoop dat het duidelijk is

 

[edmoor]

Dat kan niet want alle spaties worden door een punt vervangen door een punt.
Kijk maar:


Ik heb dus geen idee wat je hebt gedaan.
Mijn voorbeeld lijkt me toch duidelijk genoeg.

 

[don42]

Ja klopt helemaal Edmoor,
dat werkt prima
maar ik was die PUNTEN op 1 na graag kwijt daar zit het probleem

voorbeeld: Peter van den berg
moet worden peter.vandenberg@mailadres.nl
dus alleen de eerste spatie veranderen in een punt, de rest aan elkaar schrijven

Don

 

[edmoor]

Ok.
Ik begreep dat de namen gescheiden moeten worden door een punt.
Maak er dan eens dit van:

Private Sub CommandButton1_Click()
    For i = 1 To 4
        st = InStr(1, Cells(i, 1), " ")
        Cells(i, 12) = Left(Cells(i, 1), st - 1) & "."
        Cells(i, 12) = Replace(Cells(i, 12) & Mid(Cells(i, 1), st + 1), " ", "") & "@email.nl"
    Next i
End Sub

 

[don42]

Now we talking :d

Edmoor, heel erg bedankt maar weer
precies wat ik nodig had

Don.

 

[VenA]

En bij Jan Peter van den Berg dan?

 

[don42]

Dit soort uitzonderingen zal ik dan handmatig moeten aanpassen