Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
564to568
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Emailadressen extrahieren

Emailadressen extrahieren
09.02.2005 13:09:55
Peter
Hallo,
ich verzweifle an folgender Aufgabenstellung:
Ich habe in einer Spalte einen Text, der Emailadressen beinhaltet.
Nun soll in der Spalte rechts daneben nur die Emailadressen, die in dem Text vorkommen stehen.
Das soll über alle Zeilen durchgeführt werden.
Wie kann ich das lösen?
LG
Peter

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Emailadressen extrahieren
Dr.
Ich würd als Schritt 1 mal über Daten|Text in Spalten den ganzen Schmarrn über die Leerzeichen trennen. Dann in jeder Zelle einer Zeile nach dem @ suchen und übertragen.
AW: Emailadressen extrahieren
09.02.2005 13:29:52
Peter
Danke für den Tip. Hab´s gleich ausprobiert. Aber sobald eine Zelle einen Zeilenumbruch hat, sind die nachfolgenden Zellen leer.
Damit viellecht klarer ist, was ich möchte:
Wir verschicken monatlich Newsletter. Die Emailadressen können sich Interessenten selbst auf der Website eintragen. Daher gibt es immer eine hohe Zahl an Mails die zurückkommen, wenn die Adresse nicht gültig ist, oder der Mailspace voll ist.... So, und nun muss ich in jedes Rückläufermail reinschauen, die Mailadresse raussuchen und aus der DB schmeißen. Da das aber immer mehr wird, möchte ich das über ein Makro machen, das die Mailadressen aus dem Bodytext ins Excel exportiert.
Ich habe es nun geschafft, den Bodytext ins Access bzw. ins Excel zu bekommen. Jetzt stehe ich aber bei dem Versuch an, die Mailadresse aus dem Text zu extrahieren.
Peter
Anzeige
AW: Emailadressen extrahieren
Galenzo
hab' mal eben eine nette "Monster"-Formel zusammengebastelt.
Diese zieht dir eine Mail-Adresse aus 'ner Zelle, wenn vorher und nachher ein Leerzeichen steht. Vielleicht kannst du's ja gebrauchen, ansonsten zur allgemeinen Belustigung:
=TEIL(A1;FINDEN("#";WECHSELN(A1;" ";"#";LÄNGE(LINKS(A1;FINDEN("@";A1)))-LÄNGE(WECHSELN(LINKS(A1;FINDEN("@";A1));" ";""))))+1;FINDEN("@";A1)-FINDEN("#";WECHSELN(A1;" ";"#";LÄNGE(LINKS(A1;FINDEN("@";A1)))-LÄNGE(WECHSELN(LINKS(A1;FINDEN("@";A1));" ";"")))))&TEIL(A1;FINDEN("@";A1)+1;FINDEN(" ";A1;FINDEN("@";A1))-FINDEN("@";A1))
@Alle: Ich bin natürlich immer an "Gegen"vorschlägen und Optimierungen interessiert....
Anzeige
AW: Emailadressen extrahieren
09.02.2005 14:00:53
Peter
Hi,
Super! Das Funzt! Nicht ganz richtig, aber immerhin. Was noch nicht stimmt, ist folgendes:
Es sind auch ziemlich oft vor und nach der Adresse Zeilenumbrüche drin.
Das sieht dann so aus: blabla[][]email@adresse.at[][]blabla
[]=Zeilenumbruchsymbol
Also müsste das so sein, dass entweder nach Leerzeichen oder nach Zeilenumbruch gesucht werden soll. Wenn ich das [] nun in die Formel einfüge, habe ich dann in der Formel den Zeilenumbruch. Wenn ich vorher in meinem Text mit SÄUBERN drangehe, sind die Leerzeichen zwar weg, aber dafür sieht die Adresse dann so aus:
Blablablaemail@adresse.atblablabla
Wie kann ich Zeilenumbrüche gegen Leerzeichen austauschen? Wenn ich =WECHSELN(A2;chr(13);" ") eingebe, dann steht in der Zelle #NAME?
PEter
Anzeige
AW: Emailadressen extrahieren
Ulf
Nicht chr(13) sondern Zeichen(13)
Ulf
AW: Emailadressen extrahieren
09.02.2005 14:31:02
Peter
Hallo,
Ich bin heute schon nicht mehr aufnahmefähig :-( Ich raff das alles nicht.
Hier habe ich mal eine Beispieldatei hingestellt: https://www.herber.de/bbs/user/17728.xls
Wie ich es drehe und wende, irgendwas geht da immer nicht...
LG
Peter
AW: Emailadressen extrahieren
bst
Hallo Peter,
Versuch's mal mit sowas.
Gruß, Bernd
--
Option Explicit

Sub JustForFun()
Dim r As Range
Dim i%, j%
Dim arr$(), hilf$
For Each r In Intersect(ActiveSheet.UsedRange, Range("A:A"))
hilf = Replace(r.Value, Chr(9), " ")
hilf = Replace(hilf, Chr(10), " ")
hilf = Replace(hilf, Chr(13), " ")
arr = Split(hilf, " ")
j = 1
For i = 0 To UBound(arr)
If arr(i) Like "*@*" Then
r.Offset(0, j) = arr(i)
j = j + 1
End If
Next
Next
End Sub

Anzeige
AW: Emailadressen extrahieren
bst
Hallo Peter,
Versuch's mal mit sowas.
Gruß, Bernd
--
Option Explicit

Sub JustForFun()
Dim r As Range
Dim i%, j%
Dim arr$(), hilf$
For Each r In Intersect(ActiveSheet.UsedRange, Range("A:A"))
hilf = Replace(r.Value, Chr(9), " ")
hilf = Replace(hilf, Chr(10), " ")
hilf = Replace(hilf, Chr(13), " ")
arr = Split(hilf, " ")
j = 1
For i = 0 To UBound(arr)
If arr(i) Like "*@*" Then
r.Offset(0, j) = arr(i)
j = j + 1
End If
Next
Next
End Sub

AW: Emailadressen extrahieren
Udo
Geil!
Udo
AW: Emailadressen extrahieren
09.02.2005 15:51:34
Peter
Super!
Genau das ist es!
DANKE!!

308 Forumthreads zu ähnlichen Themen

Zählen E-Mailadressen in einer Zeile
Enjoy82

Guten Morgen,
ich hab in die Zelle A1 einen rießigen E-Mail Verteiler kopiert und möchte nun die Anzahl der E-Mail Adressen wissen.
Mit Zählenwenn kam ich nicht wirklich weiter (wollte die @s zählen) -- Formel spuckt 0 aus
Nach jedem Beistrich einen Zeilenumbruch machen, ist mir noc...
27.08.2008 08:59:00
Thread-ID: 1004969
3 Beiträge
Anzeige
Email Hyperlinke mit Betreff aus Dateiname&Registe
Patrick

Hallo miteinander
Ich versuche von der Excel Tabelle eine Email über einen Email Hyperlink zu starten. Diese Email soll automatisch im Betreff den Dateinamen der Exceltabelle und den Namen des aktiven Tablellenblattes/Registers enthalten.
Geht das und wie heisst der Hyperlink dazu ?
...
07.12.2008 15:18:33
Thread-ID: 1030869
3 Beiträge
eMail-Adressen auf Syntax prüfen
Selter

Hallo,
kann ich in XLS auf einfache Weise eine Liste von Adressen auf Korrektheit hinsichlich Syntax prüfen?
In der Liste gibt es u.a. Umlaute etc.
Vielen Dank
Selter
17.02.2009 15:20:00
Thread-ID: 1051513
7 Beiträge
Anzeige
Datei-Namen ändern bei E-Mail-Versand aus Excel
Herbert

Hallo,
kann ich einen Datei-Namen ändern wenn ich sie aus Excel heraus per E-Mail versende und wenn ja wie bitte?
Vielen Dank im Voraus!
Herbert
09.05.2009 11:31:27
Thread-ID: 1074052
5 Beiträge
Email-Adresse automatisch
Tom

Hallo,
mit folgendem Makro wird die aktuelle Mappe per Email versandt.
Wie kann ich erreichen, dass in der Empfängerzeile (An) max.mustermann@musterfirma.de und im Betreff Ihr Auftrag steht
Sub Makro3() Application.Dialogs(xlDialogSendMail).Show End Sub Danke vorab
TOM
01.11.2009 17:30:03
Thread-ID: 1113673
3 Beiträge
Emailadresse auslesen
Tina

Guten Morgen,
in Zelle A1 steht:
achim.bode;achim.boede@vvv.de;
in B1 soll daraus
achim.boede@vvv.de
werden.
Wie geht das per Formel?
Lieben Dank
Gruss Tina
08.04.2010 07:31:20
Thread-ID: 1150565
9 Beiträge
Userform Textbox soll E-Mail Adresse anzeigen
Winfried

Hallo,
ich habe folgende Probleme: In einer Userform werden Adressen erfasst und in einer Tabelle gespeichtert. Die E-Mail Adressen werden nicht als Link erfasst, auf dem Tabellenblatt stehen sie auch nicht als Link. Wie muss ich den Code der Textbox ändern damit die E-Mail Adressen als Lin...
14.04.2010 17:39:26
Thread-ID: 1151809
4 Beiträge
E-Mail Adresse hat keinen Hyperlink VBA
andreas

Hallo zusammen,
ich habe hier einen kleinen Code, damit übertrage ich Werte aus einem Formular in eine externe Tabelle.
Wert in Textbox9 ist immer E-Mail Adresse.
Das auslesen funktioniert problemlos, nur hat die Mail-Adresse in der externen Tabelle den Hyperlink nicht.
Da muss...
09.06.2010 11:56:51
Thread-ID: 1161016
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
6
2
6
4
4
2
8
3
2
2
4
9
2
7
1
3
3
1
3
1
2
1
1
2