Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
116to120
116to120
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nach doppelten e-mail Adressen suchen

Forumthread: nach doppelten e-mail Adressen suchen

nach doppelten e-mail Adressen suchen
05.05.2002 19:34:04
Dino
Hi Leute,

ich habe viele e-mail Adressen ca. 10000 in Splate A, jetzt möchte ich nach doppelten e-mail Adressen suchen, die doppelte e-mail sollen aus Spalte A ausgetragen und in Tabelle 2 Spalte A eingetragen werden. Wenn ich nächtes Mal das Makro ausführe, sollen die doppelte e-mails auch in Tabelle 2 Spalte A eingetragen werden, ohne die alte zu überschreiben (einfach in nächste leere Zelle in Spalte A).

Vielen Dank im voraus....

Dino


Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: nach doppelten e-mail Adressen suchen
05.05.2002 20:13:59
WernerB.
Hallo Dino,

wie gefällt Dir dies (von den "Doppelten" verbleibt jeweils ein Exemplar in "Tabelle1"):

Viel Erfolg wünscht
WernerB.

Re: nach doppelten e-mail Adressen suchen
05.05.2002 22:16:29
Dino
Hallo Werner,

superrrrr :))

jetzt nur noch eine Frage, kann man das MAkro erweitern so das leere Zeilen in Tabelle1 gelöscht werden nach dem Makro ausgeführt ist.

Nochmal vielen Dank....

Gruß
Dino

Anzeige
Re: nach doppelten e-mail Adressen suchen
05.05.2002 22:30:46
WernerB.
Hallo Dino,

no Problem:

Viel Erfolg wünscht
WernerB.

Re: nach doppelten e-mail Adressen suchen
09.05.2002 21:25:50
Dino
Ich bedanke mich nochmal für Deine Hilfe...

Gruß
Dino

Forumthreads zu verwandten Themen

Email Ergänzing, Adresse CC
Karel

Hallo Forum,
habe in diese Forum unterstehende Email VBA code gefunden.
AUF tabelleblatt Mailadresse stehn ab A2 sten untereinander alle Emailadresse
Wie kann ich Emailadresse als CC genau so abfragen auf Tabelleblatt mail adressen ab Zelle C2
Option Explicit
Sub Serien_E...
23.10.2008 19:45:00
Thread-ID: 1018786
7 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
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
VERKETTUNG email-Adressen f.Lotus
nosp52

Hallo
vermutlich für einen Excel-Experten nur ein kleines Problem.
Ich bekam eine Excel-Datei mit ca 1000 Zeilen,5 Spalten, u.a. enthält eine Spalte zeilenweise jeweils die e-mail-adresse einer Person. Nun sollen zur Verteilung eines Rundschreibens per lotus-mail, alle e-mail-Adressen v...
16.06.2010 09:25:15
Thread-ID: 1162089
3 Beiträge
Zelladresse suchen
Leitz

Hallo!
Bitte um Eure Hilfe bei folgendem Code:
With Sheets("KD").Columns(1)
Set rngFind = .Find(What:=Eingabe, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
End With
Der Code sucht mir die Übeinstimmung von "Einga...
02.02.2011 13:19:45
Thread-ID: 1198600
4 Beiträge
Bereich in e-mail Adresse nach @ wiedergeben
Thorsten

Hallo,
gibt es eine Formel, welche mir den Bereich einer e-mail Adresse nach dem @ zurück gibt?
Die E-mail Adressen sind natürlich unterschiedlich lang
Bsp: t.voland@intime-pos.de soll nachher nur intime-pos.de rausgeben.
Danke für die Hilfe
Thorsten
18.03.2011 20:33:26
Thread-ID: 1206425
8 Beiträge
Emailadresse zusammensetzen aus Auflistung
Karin

Guten Abend!
Ich brüte schon seit Stunden über folgendem Problem:
An eine Liste von Standard Emailadressen (Aufbau: Markt.xx@firma.de" soll eine Email mit jeweils einer speziellen entsprechenden Datei im Anhang ("10xx.pdf") gesandt werden.
Kann ich per For Each ... Next die Marktnum...
06.04.2011 22:07:11
Thread-ID: 1209400
2 Beiträge
Anzeige
email adressen aus einer excel tabelle in mail via
dirk82

hallo zusammen,
ich hoffe, ihr könnt mir helfen. ich habe folgendes problem:
ich habe einige e-mail adressen in einer excel tabelle stehen. über ein makro erzeuge ich eine e-mail mit einem anhang (das hab ich schon geschafft). nun weiß ich zwar, wie diese email einem empfänger zugeordne...
25.07.2011 22:20:17
Thread-ID: 1223592
2 Beiträge
Keine doppelten Mailadressen bei Mailerstellung
Stefan

Hallo zusammen,
ich brauch mal wieder Eure Hilfe. Ich hab durch dieses Forum einen Code bekommen und diesen etwas angepasst. Nun habe ich aber ein Problem und komme nicht mehr weiter, da meine VBA Kenntnisse leider zu gering sind.
Mit dem Makro wird eine Mail erstellt. Dazu durchsucht e...
03.08.2011 22:36:09
Thread-ID: 1224772
3 Beiträge
Emailadressen aus Outlook ablesen
VerenaK

Guten Morgen alle zusammen!
Ich habe ein Makro gebastelt, das automatisch Emails verschickt und sich die adressen dazu selber aus Outlook zieht, indem es eine Spalte mit Namen aus einer Exceltabelle ausliest.
Es funktioniert soweit auch, aber bei zwei Feldern hängt es sich auf.
Bei...
02.12.2011 23:16:50
Thread-ID: 1240355
2 Beiträge
Anzeige
E-Mailadresse aus Zelle in LotusNotes
Markus

Hallo zusammen,
ich habe per Makrorecorder einen Code erstellt, welcher den PDF-Creater öffnet und aus mein Tabellenblatt im Lotus als PDF anhängt.
jetzt möchte ich noch aus diesem Blatt Zelle M30 die E-Mailadresse in Lotus übernehmen und den Betreff
sowie den Mailtext ändern.
H...
24.04.2012 11:34:59
Thread-ID: 1260720
2 Beiträge
Anzeige

Infobox / Tutorial

Doppelte E-Mail-Adressen in Excel finden und löschen

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und lade die Datei mit den E-Mail-Adressen in Spalte A.

  2. Erstelle ein neues Modul für das Makro:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
    • Klicke auf Einfügen > Modul.

  3. Füge den folgenden Code ein, um doppelte E-Mail-Adressen zu finden und in eine andere Tabelle zu kopieren:

    Sub DoppelteEmails()
   Dim ws1 As Worksheet, ws2 As Worksheet
   Dim emailDict As Object
   Set emailDict = CreateObject("Scripting.Dictionary")
   Set ws1 = ThisWorkbook.Sheets("Tabelle1")
   Set ws2 = ThisWorkbook.Sheets("Tabelle2")
   Dim cell As Range, lastRow As Long, outputRow As Long

   ' Finde die letzte Zeile in Tabelle1
   lastRow = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row
   outputRow = ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row + 1

   ' Durchlaufe alle E-Mail-Adressen in Tabelle1
   For Each cell In ws1.Range("A1:A" & lastRow)
       If cell.Value <> "" Then
           If emailDict.Exists(cell.Value) Then
               ' E-Mail ist doppelt, in Tabelle2 schreiben
               ws2.Cells(outputRow, 1).Value = cell.Value
               outputRow = outputRow + 1
           Else
               emailDict.Add cell.Value, Nothing
           End If
       End If
   Next cell

   ' Leere Zeilen in Tabelle1 löschen
   For i = lastRow To 1 Step -1
       If ws1.Cells(i, 1).Value = "" Then
           ws1.Rows(i).Delete
       End If
   Next i
End Sub

  4. Führe das Makro aus:

    • Gehe zurück zu Excel, drücke ALT + F8, wähle DoppelteEmails und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 9: Index außerhalb des gültigen Bereichs"

    • Überprüfe, ob die Tabellenblätter "Tabelle1" und "Tabelle2" korrekt benannt sind.

  • Fehler: Doppelte E-Mail-Adressen werden nicht erkannt

    • Stelle sicher, dass keine Leerzeichen vor oder nach den E-Mail-Adressen vorhanden sind. Du kannst die Funktion TRIM() verwenden, um diese zu entfernen.

Alternative Methoden

  1. Bedingte Formatierung:

    • Markiere die Spalte mit den E-Mail-Adressen, gehe zu Start > Bedingte Formatierung > Regeln verwalten und wähle Doppelte Werte aus, um Duplikate visuell hervorzuheben.

  2. Pivot-Tabellen:

    • Erstelle eine Pivot-Tabelle, um die Anzahl der Vorkommen jeder E-Mail-Adresse zu zählen. E-Mail-Adressen mit mehr als einem Vorkommen sind doppelt.

Praktische Beispiele

  • Wenn du 10.000 E-Mail-Adressen in Spalte A hast, kannst du mit dem obigen Makro schnell alle doppelten E-Mail-Adressen in Tabelle2 speichern, ohne die bestehenden Einträge zu überschreiben.

  • Nutze die Bedingte Formatierung, um vor der Ausführung des Makros einen schnellen Überblick über die doppelten E-Mail-Adressen zu erhalten.

Tipps für Profis

  • Automatisiere die Suche: Du kannst das Makro so anpassen, dass es beim Öffnen der Datei automatisch ausgeführt wird.

  • Verwende einen E-Mail-Adressen-Finder: Wenn du regelmäßig E-Mail-Adressen suchen musst, könnte ein spezialisiertes Tool wie ein E-Mail-Adressen-Finder nützlich sein.

  • Backup erstellen: Bevor du Daten löschst, erstelle ein Backup deiner Datei, um versehentliche Datenverluste zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich alte E-Mail-Adressen finden, die ich nicht mehr benötige?
Verwende die Filterfunktionen in Excel, um E-Mail-Adressen zu suchen, die länger nicht mehr verwendet wurden.

2. Kann ich auch nach E-Mail-Adressen suchen, die in mehreren Tabellen enthalten sind?
Ja, du kannst das Makro anpassen, um mehrere Tabellen zu durchsuchen und alle doppelten E-Mail-Adressen zu erfassen.

Beliebteste Forumthreads (12 Monate)

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