selecteren na de ' / '

[otmar]

de waarde van cel A1 in mijn werkblad is

jan@voorbeeld.nl / piet@voorbeeld.nl

nu is de persoon voor de ' / ' emailadres1
en de persoon na de ' / ' emailadres2

ik wil dit dmv een macro excel dit laten bepalen. wie weet welke formule ik daarvoor moet gebruiken?

zo iets moet het worden
left(until ' /';a1) = emailadres1
right(from '/ ';a1) = emailadres2

 

[edmoor]

Voorbeeldje:

Sub test()
    Dim MailAdres() As String

    MailAdres = Split(Range("A1").Value, "/")

    Msgbox MailAdres(0) '<- 1e adres
    Msgbox MailAdres(1) '<- 2e adres
End Sub

 

[sylvester-ponte]

=links(a1;vind.alles("/";a1)-1)

 

[otmar]

Voorbeeldje:

Sub test()
    Dim MailAdres() As String

    MailAdres = Split(Range("A1").Value, "/")

    Msgbox MailAdres(0) '<- 1e adres
    Msgbox MailAdres(1) '<- 2e adres
End Sub

bedankt edmoor, dit is wat ik zocht!