Dubletten in nur einer Spalte entfernen

[niniho]

Hallo zusammen,

mein Anliegen ist folgendes: Ich habe Daten in 2 Spalten. A und B. Zwischen beiden und innerhalb beider gibt es Dubletten. Ich möchte allerdings nur in Spalte B die Dubletten entfernt bekommen (sowohl die innerhalb von B, als auch die Daten, die bereits in A vorhanden sind). Wie kann ich das lösen?

Danke für Eure Anworten!

Viele Grüße

Niniho

[WillWissen]

Hi Niniho,

markiere die Spalte, die du bereinigen willst, gehe zu Duplikate entfernen bei den Datentools. Mit bestehender Markierung fortfahren und Duplikate entfernen anklicken.

[niniho]

Hi WillWissen,

das genügt leider nicht. Mit dieser Funktion bekomme ich die Dubletten innerhalb der Spalte B gelöscht. Ich möchte zusätzlich noch die Duplikate zwischen A und B (nur in der Spalte B) löschen.

[RPP63]

Moin!
Du solltest mal ein Beispiel geben und die zu löschenden Dubletten markieren.
Dann können wir Dir leichter folgen und helfen.

Gruß Ralf

[niniho]

Danke Euch!

Ich hab mal schnell ein Beispiel gemacht. Links in Spalte A stehen alle möglichen Begriffe, die in Adwords online gespeichert sind und nicht mehr angefasst werden sollen. In Spalte B kommen neu recherchierte Begriffe hinzu. Ziel ist es, dass Dubletten per Automatismus verschwinden sodass in Spalte B letztlich nur neue Begriffe stehen ... die ich dann per copy paste ganz einfach ebenfalls online speichern kann.

Zu löschen wäre in Spalte B:

"was macht"
"was mandant sagt"
"weil am Rhein"
"welche unterlagen"
> weil in A bereits vorhanden

"test"
> weil in B schonmal vorhanden


Viele Grüße, Niniho

[RPP63]

Eine Datei wäre besser als ein Screenshot, dann müsste man das nicht nachbauen. 

1. Füge eine Überschriftenzeile ein
   
2. Hilfsspalte C
   
3. In C1 kommt eine 0
   
4. Ab C2 die Formel: =WENN(ZÄHLENWENN(A:A;B2);0;ZEILE())
   Tabelle1
   
   

   	A	B	C
   1	Ü1	Ü2	0
   2	a	x	2
   3	b	y	3
   4	c	d	0
   5	d	e	0
   6	e	f	0
   7	f	v	7
   8	g	w	8
   9	h
   10	i
   11	j

   Formeln der Tabelle

   Zelle Formel C2 =WENN(ZÄHLENWENN(A:A;B2);0;ZEILE())

   
   Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
   
5. Spalte C kopieren und als Wert einfügen
   
6. Spalten B und C markieren
   
7. Daten, Duplikate entfernen
   
8. Daten haben Überschriften deaktivieren!
   
9. Nur(!) Spalte C auswählen, OK
   
10. Die Hilfsspalte kann jetzt gelöscht werden
    Tabelle1
    
    

    	A	B
    1	Ü1	Ü2
    2	a	x
    3	b	y
    4	c	v
    5	d	w
    6	e
    7	f
    8	g
    9	h
    10	i
    11	j

    
    Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
    

Genau so würde ich auch in VBA vorgehen, ich schreibe Dir gleich mal ein Makro.

Gruß Ralf

[RPP63]

Nochmal editiert, Du wolltest ja auch das zweite "test" weghaben:

Sub RPP()
Application.ScreenUpdating = False
With Tabelle1
  .Cells(1, 3) = 0
  With .Range(.Cells(2, 3), .Cells(1, 2).End(xlDown).Offset(0, 1))
    .Formula = "=IF(COUNTIF(A:A,B2),0,ROW())"
    .Copy: .PasteSpecial xlPasteValues
  End With
  .Range("B:C").RemoveDuplicates 2, xlNo
  .Columns("C").Delete
  .Columns("B").RemoveDuplicates 1, xlNo
  Application.Goto .Cells(1)
End With
End Sub

[niniho]

Wie geil, funktioniert wunderbar, vielen Dank!!!!!  :19: