Excel: Domain aus Emailadresse auslesen (mittels VBA?)

Computer: Software & Programmierung Office Software
1

Hallo Excelperten!

Ich hab da mal wieder etwas, was ich nicht hinkriege.

Ich habe eine Liste mit rund 1000 Zeilen. In jeder Zeile stehen diverse Daten und immer in Spalte „M“ steht die Emailadresse.
Nun würde ich gerne automatisch aus dieser Emailadresse nur die Domain auslesen (also aus [email protected] soll Beispiel.de werden).

Am liebsten würde ich das ganze als Makro haben, da ich es dann in ein größeres mit einbauen kann.
Allerdings wäre eine Funktion / Formel auch schon gut (wenn in Spalte „V“ die Domain erscheint).

Vielen Dank schonmal im Voraus

2

=RECHTS(M1;LÄNGE(M1)-FINDEN("@";M1))

3

Erstmal ileben dank.
Das hatte ich auch schon probiert, hat mir aber immer einen Fehler ausgespuckt ("#Wert")

Mein Versuch war:

=VERKETTEN(„www.“;TEIL(M64;VERWEIS(41;FINDEN("@";M64;ZEILE(M:M)))+1;30))

funktioniert soweit gut, aber Fehler (wenns keine emailadresse ist, kein @-Zeichen ect.)erkennt er nicht. Mit der Erweiterung („Istfehler…“) wird die Formel so gigantisch lang, und die Berechnung so unendlich langsam…

dachte da gibts evtl. eine bessere Möglichkeit

4

Wie viele Datensätze sind es denn?

Du könntest eine Funktion in VBA basteln, denn die ganzen Textfunktionen gibt es in VBA ja auch, aber ich fürchte, die würde auch nicht schneller arbeiten als die eingebaute Excelfunktion, denn die ist ja schon kompiliert.

Und die Fehler abfangen musst du in VBA auch!

5

Hallo, wenn ich dir einen anderen Tipp geben darf, wo do kein excelprofi sein musst.
Es gibt ein Programm das nennt sich easy email extractor

http://www.novirusthanks.org/products/easy-email-extractor/
Da einfach deine Datei reinziehen und schon hast du eine saubere email liste.

das tool scrapebox kann dann aus der email liste domains zaubern

oder du schaust hier:

https://exceljet.net/formula/get-domain-from-email-address

6

Vermutlich hast du zu dem Zeitpunkt als du die Formel eingegeben hast, in der Zelle „M1“ nichts zu stehen gehabt! um die Ausgabe „#Wert“ zu vermeiden mache eine Wenn verknüpfung. Mit „wenn“ und „und“ und „oder“ kanst du weitere Bedingungen festlegen. Beispiel: =WENN(M1="";"";RECHTS(M1;LÄNGE(M1)-FINDEN("@";M1))) Hierbei ist M1 die Zelle in der die E-Mailadresse steht!

7

Lese mal weiter oben meinen Kommentar, gebe dir gerne weiter Tips!

8

So bekommst du gleich noch die Adresse als Hyperlink! =WENN(M1="";"";(HYPERLINK(VERKETTEN(„http://www.“;RECHTS(M1;LÄNGE(m1)-FINDEN("@";M1))))))

9

Hallo,

da scheinbar auch etwa anderes als E-Mail-Adressen eingetragen sein können, habe ich mir erlaubt, die Formel mit einer einfachen Syntaxprüfung zu ergänzen:

=WENN(ZÄHLENWENN(M1;"?*@?*.??")=0;"";(HYPERLINK(VERKETTEN("http://www.";RECHTS(M1;LÄNGE(M1)-FINDEN("@";M1))))))

Gruß
Tobias

10

Ja, klar, war ja auch nur eine Möglichkeit!

11

Erstmal vielen Lieben Dank an Alle! :smile:

Habe auf jeden Fall den einen oder anderen Tip gut gebrauchen können. :smile:

LG