Domeinnaam uit emailadres halen

[Knight75]

Ik heb nu via een aantal verschillende formules in meerdere kolommen het voor elkaar om de domeinnaam uit een e-mailadres te halen.
Mijn vraag is nu of het mogelijk is om met één formule de domeinnaam (in hoofdletters) uit een emailadres te halen.

arie.dehaan@hema.nl = HEMA
jan.deboer@blokker.nl = BLOKKER
peterdevries@gamma.com = GAMMA

 

[lam201]

Hi,

De eerste voor Office365, anders de tweede functie

=HOOFDLETTERS(TEKST.VOOR(TEKST.NA(A2;"@");"."))

=HOOFDLETTERS(LINKS(RECHTS(A2;LENGTE(A2)-VIND.ALLES("@";A2));VIND.ALLES(".";RECHTS(A2;LENGTE(A2)-VIND.ALLES("@";A2)))-1))

 

[Knight75]

Ik heb de bovenste gebruikt. :thumb:

Zie direct dat ik het weer veel te ingewikkeld heb gemaakt!

 

[snb]

Een simpele UDF:

Function F_snb(c00)
  F_snb = Split(Split(c00, "@")(1), ".")(0)
End Function

in B2:

=F_snb(A2)