Excel 2010 Spalteninhalte vergleichen

Question

Hallo

Ich möchte gerne zwei Spalten aus zwei Registerkarten miteinander vergleichen. Die Inhalte der Spalten sind ausschließlich Zahlen, die ggf. mehrfach vorhanden sind und garantiert an unterschiedlichen Positionen stehen. Als erstes müssten die mehrfachen Zahlen in einer Spalte auf eine reduziert werden. Dann dasselbe für die zweite Spalte. Abschließend sollten Zahlenwerte die nur in einer der Spalten vorkommen entweder farbig gekennzeichnet oder ggf. in eine weitere Spalte eingetragen werden.

Vielen Dank für Eure Ideen und ggf. Denkanstöße

MfG André

Answer 1

Hallo Andre,

am einfachsten kannst du das mit ZÄHLENWENN und bedingter Formatierung lösen.

Deine Zahlen stehen in Tabelle1 und Tabelle2 jeweils in der Spalte A ab Zeile 2.
In die Spalte B2 in Tabelle2 schreibst du die folgende Formel:

=ZÄHLENWENN(Tabelle1!A:A;A2)

und ziehst die Formel soweit wie benötigt nach unten.
Wird keine Übereinstimmung gefunden, so wird hier eine Null angezeigt.

Das kannst du nutzen, in dem du in Spalte A eine bedingte Formatierung einfügst:
Formel ist: =B2=0
Dann kannst du eine Farbe auswählen und fertig.

Du kannst aber auch einen Autofilter setzen und bei Spalte B nur die Null (= nicht in anderer Tabelle vorhanden) anzeigen lassen.

Das kannst du entsprechend für beide Tabelle machen.

Gruß

M.O.

Answer 2

hi all ^^

worksheet1 spalte a=Daten
worksheet2 spalte a=Daten
abgleich darstellung in worksheet3 spalte a und c

gruss nighty

ein Beispiel mit dem spezialfilter ^^

Sub Makro1()
Dim LzeileWks1 As Long, LzeileWks2 As Long, LzeileWks3 As Long, LzeileWks4 As Long
LzeileWks1 = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
LzeileWks2 = Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1
LzeileWks3 = Worksheets(3).Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets(1).Range("A1:A" & LzeileWks1).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Worksheets(1).Range("A2:A" & LzeileWks1).Copy Worksheets(3).Range("A2")
Worksheets(1).Columns("A:A").AdvancedFilter Action:=xlFilterInPlace, Unique:=False
LzeileWks3 = Worksheets(3).Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets(2).Range("A1:A" & LzeileWks2).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Worksheets(2).Range("A2:A" & LzeileWks2).Copy Worksheets(3).Range("A" & LzeileWks3)
Worksheets(2).Columns("A:A").AdvancedFilter Action:=xlFilterInPlace, Unique:=False
LzeileWks3 = Worksheets(3).Cells(Rows.Count, 1).End(xlUp).Row + 1
LzeileWks4 = Worksheets(3).Cells(Rows.Count, 2).End(xlUp).Row + 1
Worksheets(3).Range("A1:A" & LzeileWks3).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Worksheets(3).Range("A2:A" & LzeileWks3).Copy Worksheets(3).Range("C" & LzeileWks4)
Worksheets(3).Columns("A:A").AdvancedFilter Action:=xlFilterInPlace, Unique:=False
End Sub