open_in_new content_copy 
=LINKS(D2;FINDEN("@";WECHSELN(D2;"_";"@";LÄNGE(D2)-LÄNGE(WECHSELN(D2;"_";""))))-1)&"."&RECHTS(D2;LÄNGE(D2)-FINDEN(".";D2))