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
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^
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 SubAntwort 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
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
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

