Barcodes vergleichen aus zwe Tabellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
da würde ich so vorgehen:
1. in beiden Tabellen in einer Hilfsspalte den Relevanten Teil des Barcodes herauslösen, so dass in beiden Tabellen der gleiche Text steht.
Das geht beispielsweise über die Funktion TEIL oder die Menüfunktion TEXT IN SPALTEN
2. jetzt schreibst du in der ersten Tabelle in einer weitern Hilfsspalte die Kennung aus welchem System der Barcode stammt, dh "soll" oder "ist" (dieser Wert muss in jeder Zeile stehen)
3. jetzt kopierst du diese beiden Spalten (der vereinheitlichte Barcode und die Kennung) in eine neue Tabelle und fügs sie untereinander ein (falls du mit der Formel gearbeitet hast, als Wert einfügen)
4. mit dieser Tabelle führst du eine Auswertung mit Hilfe der Pivottabelle durch.
hierbei ziehst du den Barcode nach "Zeilen" und die Systemkennung nach "Spalten"
in "Daten" wertest du nach Anzahl aus.
5. in der Pivottabelle steht dann für jeden Barcode die Anzahl wie oft er in Soll oder Ist vorkommt nebeneinander.
die Ergebnisse kannst du mit einer Formel vergleichen und so relativ schnell die Abweichungen finden.
schau dir mal das Beispiel an.
https://www.herber.de/bbs/user/112045.xlsx
Gruß Daniel

Hi,
wie oft welche Barcodes in welcher Spalte auftauchen?
Das geht so:

' allg. Modul, z.B. Modul1
Option Explicit
Sub vgl()
Dim o As Object, oi, ok
Dim i&
Dim aMax&, bMax&
Dim s$
Dim a
Set o = CreateObject("scripting.dictionary")
aMax = Range("A" & Rows.Count).End(xlUp).Row
bMax = Range("B" & Rows.Count).End(xlUp).Row
a = Range("A1:A" & aMax)
For i = 2 To aMax
s = Mid(a(i, 1), 9, 9)
o(s) = o(s) + 1
Next
a = Range("B1:B" & aMax)
For i = 2 To bMax
s = Right(a(i, 1), 9)
o(s) = o(s) + 0.00001
Next
ReDim a(1 To o.Count, 1 To 4)
i = 1
For Each ok In o.keys
a(i, 1) = "'" & ok
oi = o(ok)
a(i, 2) = Int(oi)
a(i, 3) = Int((oi - a(i, 2)) * 100000)
a(i, 4) = Abs(a(i, 2) - a(i, 3))
i = i + 1
Next
Range("D2:G" & Rows.Count).Clear
Range("D2").Resize(o.Count, 4) = a
Range("D2").CurrentRegion.Sort key1:=Range("G2"), order1:=xlDescending, _
key2:=Range("D2"), order2:=xlAscending, _
Header:=xlYes
' Dadurch stehen die mit Unterschieden oben, entsprechend sortiert
End Sub

Diese Ausgabeliste ist natürlich "länger" als die zwei zu vergleichenden Spalten, wenn Codes nur je in der einen oder der anderen Spalte vorkommen.
Datei: https://www.herber.de/bbs/user/112062.xlsm
Ausgabe:

Barcode         A       B    Diff A/B
838941977	0	35	35       ' Häufigkeit der Unterschiede
838941881	0	9	9        ' absteigend sortiert
838696054	1	0	1
usw.

Schöne Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

Barcodes vergleichen aus zwe Tabellen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread