Office: (Office 2007) Tabellen vergleichen und Unterschiede kenntlich machen

manuel1987 · 25. Mai 2011

Hallo zusammen,

leider habe ich nichts passendes gefunden.

Und zwar habe ich zwei Tabellen, die gleich aufgebaut sind, heisst die Spaltenzahl und -ort ist gleich. Die zwei Tabellen haben außerdem jeweils eine ID, die für den Vergleich genutzt werden kann.

Nun möchte ich
1. Prüfen, welche Datensätze in Tabelle A vorhanden sind, in B nicht und umgekehrt. Das ist kein Problem für mich, kann man ja problemlos mit einer kleinen Abfrage prüfen.
2. Prüfen, wenn ein Datensatz anhand der ID in beiden Tabellen vorhanden ist, in welchen Spalten sich Unterschiede befinden. Leider konnte ich dies bisher nicht umsetzen. Kann mir hier bitte jemand weiterhelfen?

Vielen Dank im Voraus.

Gruß

:)

Atrus2711 · 27. Mai 2011

Hi,

etwa so:

Code:

Sub Checker()
'Vergleicht zwei Tabellen anhand der Gleichheit der PK-bestimmenden Felder
'und nennt die Spalten, die bei gleichen PKs Abweichungen zeigen.
'Gleicher Aufbau beider Tabellen wird vorausgesetzt!

Dim rstFelder As DAO.Recordset
Dim rstDiff As DAO.Recordset
Dim fld As DAO.Field
Dim strSQL As String

Set rstFelder = CurrentDb.OpenRecordset("TabelleA") 'die eine Tabelle; die andere siehe SQL:
For Each fld In rstFelder.Fields
strSQL = "SELECT a.[" & fld.Name & "], b.[" & fld.Name & "] " _
& " FROM TabelleA AS a INNER JOIN TabelleB AS b " _
& "ON " _
& "(a.[ID]) = (b.[ID]) " _
& "WHERE a.[" & fld.Name & "] b.[" & fld.Name & "] "
Set rstDiff = CurrentDb.OpenRecordset(strSQL)
If Not rstDiff.EOF Then
rstDiff.MoveLast
End If
If Not rstDiff.EOF Then
rstDiff.MoveFirst
Debug.Print fld.Name & " weicht ab"
Else
Debug.Print fld.name & " ist identisch"
End If
rstDiff.Close
Set rstDiff = Nothing
Next fld
rstFelder.Close
Set rstFelder = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ausgabe im Direktfenster.
Die roten Stellen musst du an deine Verhältnisse anpassen.

achtelpetit · 27. Mai 2011

Man kann das auch per Tabellenerstellung lösen, hier ist jetzt vorausgesetzt, daß in beiden Tabellen die gleiche Anzahl Daten mit den gleichen IDs steht.
Code:

SELECT Tabelle1.Id INTO TabelleDiff
FROM Tabelle1 INNER JOIN Tabelle2 ON Tabelle1.Id = Tabelle2.Id
WHERE ((Tabelle1.feld1)[Tabelle2]![feld1])
OR ((Tabelle1.feld2)[Tabelle2]![feld2])
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann kannst Du die Hilfstabelle mit den beiden Ursprungstabellen joinen und Dir die Differenzen gleich anschauen und bearbeiten.

Lanz Rudolf · 27. Mai 2011

Hallo
@Martin
so weiss er aber doch nicht in welchem DS (z.B. ID) der unterschied ist *frown.gif*
oder sehe ich was nicht ?
und ob das gefortert ist weiss ich auch nicht.

achtelpetit · 27. Mai 2011

Ja Ruedi, dann muß man doch nur zum Feldnamen die ID mit ausdrucken.

Atrus2711 · 27. Mai 2011

Wenn es nur darum, welche Felder abweichen, genügt mein Weg... es könnte ja z.B. nur als Nachweis der Identität (bei evtl. Reihenfolgewechsel) dienen.

Ansonsten halt die ID mit dazupacken.

Office: (Office 2007) Tabellen vergleichen und Unterschiede kenntlich machen

Tabellen vergleichen und Unterschiede kenntlich machen

Tabellen vergleichen und Unterschiede kenntlich machen

Tabellen vergleichen und Unterschiede kenntlich machen

Tabellen vergleichen und Unterschiede kenntlich machen - Similar Threads - Tabellen vergleichen Unterschiede

Werte in 2 Tabellen vergleichen und Zählen wenn Suchbegriff zutrifft

Tabellen täglich vergleichen und Neuerungen hinzufügen

Mehrere Namen aus Tabelle in eine Liste filtern

Sehr große Tabellen vergleichen und Unterschiede hervorheben

zwei Tabellen (unterschiedliche xls Dateien) vergleichen

Tabellen vergleichen und Unterschiede auflisten

2 Tabellen vergleichen Unterschiede mit bedingter formatierung kennzeichnen