Tabellen vergleichen

Forumthread: Tabellen vergleichen

13.08.2007 15:43:07

Holm

Hallo,
ich habe in 2 Registern jeweils eine Tabelle, die gleich aufgebaut sind (gleiche Spaltenüberschriften), insgesamt je 12 Spalten. Eine Tabelle davon ist sozusagen meine Quelle, die andere ein Extrakt daraus. Nun möchte ich anhand von 3 Kriterien feststellen, welche Quell-Zeilen in meinem Extrakt NICHT vorkommen. Wenn das Makro solch eine Zeile gefunden hat, reicht es mir aus, wenn in der betreffenden Zeile in der Spalte 13 der Text "fehlt" erscheint.
Zur Verdeutlichung die angehängte Datei.
https://www.herber.de/bbs/user/45002.xls
Die Quelldatei besteht im Original aus ca. 300 Zeilen. Die ausgefüllten Zeilen sind jeweils nicht sortiert und können in der Anzahl variieren.
Gruss

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellen vergleichen

13.08.2007 16:19:00

Rudi
AW: Tabellen vergleichen

13.08.2007 16:22:17

Holm
AW: Tabellen vergleichen

13.08.2007 16:30:00

Rudi
AW: Tabellen vergleichen

13.08.2007 16:36:00

Holm
AW: Tabellen vergleichen

13.08.2007 16:43:00

Rudi
AW: Tabellen vergleichen + Ende

13.08.2007 16:55:36

Holm

AW: Tabellen vergleichen

13.08.2007 16:19:00

Rudi

Hallo,


Nun möchte ich anhand von 3 Kriterien feststellen,

welche?
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Tabellen vergleichen

13.08.2007 16:22:17

Holm

Sorry,
im Kopf gedacht, Befehl kam aber nicht bis zu den Fingern! ;-)
Also. Kriterien sind Gesellschaft, Auftrag und Gruppe.
Gruss

AW: Tabellen vergleichen

13.08.2007 16:30:00

Rudi

Hallo,


Sub vergleich()
Dim vntQ, vntE, intQ As Integer, intE As Integer, blnFound As Boolean
'Kriterienspalten
Const S1 = 4
Const S2 = 6
Const S3 = 7
vntQ = Sheets("Quelle").Range("A1").CurrentRegion
vntE = Sheets("Extrakt").Range("A1").CurrentRegion
For intQ = 2 To UBound(vntQ, 1)
blnFound = False
For intE = 2 To UBound(vntE, 1)
If vntE(intE, S1) = vntQ(intQ, S1) And _
vntE(intE, S2) = vntQ(intQ, S2) And _
vntE(intE, S3) = vntQ(intQ, S3) Then
blnFound = True
Exit For
End If
Next intE
If blnFound = False Then Sheets("Quelle").Cells(intQ, 13) = "fehlt"
Next intQ
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Tabellen vergleichen

13.08.2007 16:36:00

Holm

Hallo,
bei mir bricht das Makro ab, sobald das Makro die Zeile gefunden hat, und zwar in der if-Zeile. Kannst Du noch einmal helfen?

AW: Tabellen vergleichen

13.08.2007 16:43:00

Rudi

Hallo,
in deiner Beispieldatei sind #Bezug! in Extrakt. Das führt zum Abbruch.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Tabellen vergleichen + Ende

13.08.2007 16:55:36

Holm

Hallo,
Das stimmt. Hatte ich übersehen. Also, in der Beispieldatei funzt das Ganze, in meiner Originaldatei noch nicht, aber da muss ich morgen noch einmal ran. Muss ja gehen.
Vielen Dank für das Makro, es wird mir sehr helfen.
Gruss

Beliebteste Forumthreads (12 Monate)

Forumthread: Tabellen vergleichen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread