Doppelte Datensätze in 2 Spalten markieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Zu Daniels Erklärung noch die optische Darstellung

Tabelle1

	A	B	C
1	Hugo	Meisner	MeisnerHugo
2	Werner	Schaller	SchallerWerner
3	Richard	Müller	MüllerRichard
4	Helmut	Müller	MüllerHelmut
5	Hugo	Müller	MüllerHugo
6	Richard	Meier	MeierRichard
7	Hugo	Meisner	MeisnerHugo
8

Formeln der Tabelle

C1 : =B1&A1
C2 : =B2&A2
C3 : =B3&A3
C4 : =B4&A4
C5 : =B5&A5
C6 : =B6&A6
C7 : =B7&A7

Bedingte Formatierungen der Tabelle

Zelle	Nr.: / Bedingung	Format
C1	1. / Formel ist =ZÄHLENWENN($C$1:$C$7;C1)>1	Abc
C2	1. / Formel ist =ZÄHLENWENN($C$1:$C$7;C2)>1	Abc
C3	1. / Formel ist =ZÄHLENWENN($C$1:$C$7;C3)>1	Abc
C4	1. / Formel ist =ZÄHLENWENN($C$1:$C$7;C4)>1	Abc
C5	1. / Formel ist =ZÄHLENWENN($C$1:$C$7;C5)>1	Abc
C6	1. / Formel ist =ZÄHLENWENN($C$1:$C$7;C6)>1	Abc
C7	1. / Formel ist =ZÄHLENWENN($C$1:$C$7;C7)>1	Abc

Gruss Rainer

Hallo
zunächst einmal die Frage, wenn du die doppelten markiert hast, willst du dann die Namen auch Doppelt in das andere Blatt übertragen oder jeden mehrfach vorkommenden Namen nur einmal?
So gehts, die Formeln beginnen ab Reihe 2 (Reihe 1 ist vermutlich überschrift)
- 2 Hilfspalten einfügen (Spalte C und D)
- in Spalte C Vor- und Nachnamen zusammensetzen. Formel: =A2&" "&B2"
- in Spalte D folgende Formel: =Zählenwenn(C:C;C2)
- Formeln in C und D nach unten kopieren.
Hinter jedem Namen in C steht jetzt, wie oft er vorkommt.
Wenn du den Autofilter in D auf "grösser 1" setzt, werden alle Namen gefiltert, die mehr als einmal vorkommen. jetzt kannst du diese Färben oder in ein anderes Blatt kopieren.
solltest du in der Neuen Tabelle nur die doppelten Namen nur genau 1x benötigen und nicht doppelt, verwendest du in Spalte D die Formel: =zählenwenn(C$2:C2;c2)
Dann erhälst du in D das Ergebnist, wie oft ein Name bisher aufgetreten ist.
Um alle Doppelten Namen zu filtern setzt du dann den Autofilter in D auf "gleich 2", dann hast du jeden mehrfach vorkommenden Namen genau einmal.
Gruß, Daniel

Sub Doppelte_DS_markieren() lz = Cells(65536, 1).End(xlUp).Row For z = 1 To lz Set a = Columns(1).Find(What:=Cells(z, 1), After:=Cells(z, 1), LookIn:=xlValues, LookAt:=xlWhole) If Not a Is Nothing Then Aa = a.Row Set b = Columns(2).Find(What:=Cells(z, 2), After:=Cells(z, 2), LookIn:=xlValues, LookAt:=xlWhole) If Not b Is Nothing Then Ab = b.Row If Aa = Ab And Ab <> Cells(z, 1).Row Then Range(Cells(z, 1), Cells(z, 2)).Interior.ColorIndex = 6 End If Next z End Sub

Beliebteste Forumthreads (12 Monate)

Doppelte Datensätze in 2 Spalten markieren

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

194 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Doppelte Datensätze in 2 Spalten markieren

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

194 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread