Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

2 Excel Tabellen vergleichen





Frage

Ich habe folgendes Problem: 2 Kunden-Tabellen (10000 / 12000 Datensätze) mit Attributen Diese Kundentabellen müßte ich vergleichen Die Kundentabellen haben in der 1. Spalte teilweise die gleiche Kundennummer was auch in Ordnung ist, aber unterschiedliche Anzahl von Kundennummern, usw.. Ich müßte nun diese Tabellen nebeneinander legen und dann Zellen einfügen wenn ich diese miteinander abgleichen/vergleichen müßte. Hat jemand vielleicht eine Idee, wie man das EDV-technisch lösen kann.

Antwort 1 von Berndixx

Versuchs doch mal mit folgender Vorgehensweise:

Oben Fenster "DATEN" => "EXTERNE DATEN IMPORTIEREN" => "Datenquelle Excel Datenblätter" hier mußt Du die Datei auswählen, wo Deine Kundendaten sind => Tabellenblatt auswählen wo sich die Kundendaten befinden => Spalten auswählen die importiert werden sollen. Über Query bearbeiten kannst Du dann Deine 2. Datei mit einfügen.

Nun muß Du nur noch die zwei Felder in denen sich die Kundennummer befindet verbinden und kannst so in einem neuen Blatt alle Felder und Sätze neu einfügen.

Ich weiß hört sich schwierig an, aber nach ein paar Versuchen müßte es gehen.

mfg
Berndixx

Antwort 2 von nighty

hi Bento :)

wie gewuenscht :)

vollAutomatisch :)

gruss nighty

einzufuegen unter alt f11(vbeditor)/einfuegen/modul^

Option Explicit
Sub liste_erstellen()
Dim zaehler1 As Long
Dim zaehler2 As Long
Dim zaehler3 As Boolean
With Worksheets(2)
For zaehler1 = 1 To Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
For zaehler2 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
If Sheets(2).Cells(zaehler1, 1).Value = Sheets(1).Cells(zaehler2, 1).Value Then
zaehler3 = True
End If
Next zaehler2
If zaehler3 = False Then
.Rows(zaehler1 & ":" & zaehler1).Copy Sheets(1).Rows(Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell) _
.Row + 1 & ":" & Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
End If
zaehler3 = False
Next zaehler1
End With
End Sub


Antwort 3 von nighty

hi bento :)

in obigen makro wird spalte a tabelle1/tabelle2 abgeglichen und zeilen kopiert.

oder meinst du die kommpletten zeilen abzugleichen ?

gruss nighty

Antwort 4 von Fog

Hallo,

ich habe ebenfalls einen Tabellenvergleich. Tab1 ist<>Tab2, es kann sein, dass in Tab2 mehr Spalten enthalten sind als in Tab1. Die Spalten die zusätzich vorhanden sind, sollen rot gekennzeichnet werden.
Damit mein Programm fehlerfrei durchläuft, müssen die zusätzlichen Spalten in Tab1 dazu addiert werden, damit beide Tabellen auf gleicher Zeilenhöhe durchlaufen.

Leider reichen meine Kenntnisse noch nicht soweit aus, um dieses Problem zu beheben.

Ich wäre für jeden Vorschlag dankbar!

Antwort an:umuelleru@aol.com