Vergleich von 2 Spalten....

[cuba]

.... aber nicht nach identischenm Inhalt der Zeilen, sondern nach Inhalt der Spalten.

Hallo Forum

Ich habe eine rudlimentäre Dataei beigefügt, wobei die Spalte A in der einen Datei ist und die Spalte B in einer andern Datei. Wären es bloss einige 100 Artikelnummern, so würde das nicht ein riesigen Aufwand bedeuten, aber es sind über 25'000 Datensätze!


Wie kann ich das vergleichen? Mit index geht das nicht (oder ich habe das mit grosser Wahrscheinlichkeit falsch interpretiert...), aber mit welcher Formel kann ich mir diese Arbeit erspraren?

LG
cuba

[Jockel]

...
Hallo Forum
...
Wie kann ich das vergleichen?
...
LG
cuba

Hi, meinst du so..?

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
26	26	2
27	27	3
28	28	4
29	29	51
30	30	52
31	61	29
32	62	30
33
34

Zelle	bedingte Formatierung...	Format
A26	1: =ZÄHLENWENN($B$1:$B$32;A26)=0	abc
B26	1: =ZÄHLENWENN($A$1:$A$32;B26)=0	abc
A27	1: =ZÄHLENWENN($B$1:$B$32;A27)=0	abc
B27	1: =ZÄHLENWENN($A$1:$A$32;B27)=0	abc
A28	1: =ZÄHLENWENN($B$1:$B$32;A28)=0	abc
B28	1: =ZÄHLENWENN($A$1:$A$32;B28)=0	abc
A29	1: =ZÄHLENWENN($B$1:$B$32;A29)=0	abc
B29	1: =ZÄHLENWENN($A$1:$A$32;B29)=0	abc
A30	1: =ZÄHLENWENN($B$1:$B$32;A30)=0	abc
B30	1: =ZÄHLENWENN($A$1:$A$32;B30)=0	abc
A31	1: =ZÄHLENWENN($B$1:$B$32;A31)=0	abc
B31	1: =ZÄHLENWENN($A$1:$A$32;B31)=0	abc
A32	1: =ZÄHLENWENN($B$1:$B$32;A32)=0	abc
B32	1: =ZÄHLENWENN($A$1:$A$32;B32)=0	abc

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

[WillWissen]

Hi Jörg,

dein Vorschlag geht nur im selben Arbeitsblatt. Cuba schrieb von zwei verschiedenen Dateien.

... wobei die Spalte A in der einen Datei ist und die Spalte B in einer andern Datei.

[
Bild bitte so als Datei hochladen: Klick mich!
]

[cuba]

Danke Günter

Ich habe gestern Anbend noch im Fieber die Formeln angepasst und eingesetzt, das Resultat hat mich jedoch irrietiert.....

Mit heute Morgen etwas Filter setzen und viel Vergleichen komme ich auf ein relativ gutes Resultat.

Für mich hat sich das Thema (fast) erledigt, da ich diesen Vergleich jeden Monat ausführen muss, weil unsere Lagerbewirtschaftung keine Neueinträge mehr mitteilt.....

Somit bleibt der grosse Aufwand.

LG

cuba

[GMG-CC]

Somit bleibt der grosse Aufwand.

... der vielleicht etwas kleiner werden könnte, wenn du Power Query und PivotTable einsetzt.

[cuba]

WOW, danke Günther

Ja, so was in diese Richtung habe ich mir das vorgestellt. Das wird mir künfitig die Arbeit erleichtern!!!!

Frohe Festtage und einen guten Rutsch ins neue Jahr

Gruss
cuba

[snb]

Ich hab's versucht mit:

Code:

Sub M_snb()
   sn = Workbooks("Book2").Sheets(1).Columns(1).SpecialCells(2)
   sp = Workbooks("Book3").Sheets(1).Columns(1).SpecialCells(2)

   For j = 1 To UBound(sn)
      For jj = 1 To UBound(sp)
         If sn(j, 1) = sp(jj, 1) Then
           sn(j, 1) = ""
           sp(jj, 1) = ""
           Exit For
          End If
      Next
   Next
   MsgBox Application.Trim(Join(Application.Transpose(sn)))
   MsgBox Application.Trim(Join(Application.Transpose(sp)))
End Sub

[cuba]

Vielen Dank

Ich leg es mir ab für den nächsten Durchlauf, hoffentlich klappt es dann auch bei mir.

Frohe Festtage und einen guten Rutsch ins neue Jahr

LG
cuba

[Fennek]

Hallo,
Eine Frage an Jockel: die Lösung mit der bedimgten Formatierung fand ich sehr interessant. Wie kann man diese Formel so eingaben,'dass sie einfach auf den gegebenen Bereich kopiert werden kann?

[steve1da]

Hola,

entweder vor dem Setzen der bed. Formatierung den Bereich markieren der gefärbt werden soll. 
Oder die bed. Formatierung via Format-Pinsel übertragen.
Oder in der bed. Formatierung den Bereich bei "wird angewendet auf" anpassen.

Gruß,
steve1da