2 Spalten nach Doubletten untersuchen und markieren oder eintrage ändern

[purestyles]

Bitte, Bitte, Bitte, …
Lasse die Finger von der Herdplatte, sie könnte heiß sein!
(Habe ich letztmalig zu meiner Tochter gesagt, lang ist es her)

Ich wiederhole deutlich:
Du bist noch nicht so weit, die Hitze zu erkennen, also lasse die Finger davon!

Oder hast Du den nächsten Job schon sicher?

Gruß Ralf

Hallo Ralf, das ist normalerweise nicht mein JOB aber ich brauche hier schnell die Hilfe und habe versucht bzw. bin dabei es selbst zu versuchen da ich am Montag die Datei fertigen haben muss - ich kenne keinen der sich damit auskennt ... ausser ein Forum wie dieses ....WAT SOLL ICH TUN.... VG

[atilla]

Hallo zusammen,

solang eine Sicherungskopie vorhanden ist, kann doch nichts passieren.

Unten eine Lösungsmöglichkeit per VBA.

Gegeben ist die Tabelle1 mit zwei Spalten in denen die Mails stehen.
Eine weitere Tabelle namens "Tabelkle2" in die die Unikate geschrieben werden.

In den eingestellten Beispielen waren keine Leerzeichen sondern das Zeichen Chr(9) = Tab.
ich habe versucht jetzt dieses und leerzeichen am Ende mit zu berücksichtigen.

Unten stehenden Code einmal testen:

Code:

Sub ohne_duplikate()
 Dim i As Long, j As Long
 Dim feld
 Dim cO As Object
  feld = Sheets("Tabelle1").Cells(1).CurrentRegion
  Set cO = CreateObject("scripting.dictionary")
     For i = 1 To UBound(feld)
       For j = 1 To 2
         cO(RTrim(Replace(feld(i, j), Chr(9), ""))) = RTrim(Replace(feld(j, 1), Chr(9), ""))
       Next j
     Next i
  With Sheets("Tabelle2")
   .Cells.Clear
   .Cells(1, 1).Resize(cO.Count) = Application.Transpose(cO.keys)
 End With
End Sub