Das Archiv des Excel-Forums

Dateien vergleichen (Zeileninhalte)

Bild

Betrifft: Dateien vergleichen (Zeileninhalte)
von: thema

Geschrieben am: 29.07.2008 13:08:57

Liebe EXperts!
Welche Möglichkeiten gibt es zwei EXCEL-Dateien zu vergleichen?
D.h. es müssen Zeilen (nicht nur Zellen)-Inhalte miteinander verglichen werden: unterschiedliche Zeileninhalte markiert/herausgefunden werden.
(Office 2003 oder Office 2007)
Ganz vielen Dank für Hinweise und Tipps.
Gruss TheMa

Bild

Betrifft: AW: Dateien vergleichen (Zeileninhalte)
von: fcs
Geschrieben am: 30.07.2008 10:24:14
Hallo TheMa,
wenn du zeilenweise vergleichen möchtest/kannst, dann kannst du mit dem folgenden Makro als Startpunkt arbeiten.
Falls die Dateien unterschiedlich sortiert sind oder eine Spalte ein Schlüsselfeld enthält das jede Zeile eindeutig kennzeichnet, dann muss man den Vergleich anders aufbauen.
Dann muss das Schlüsselfeld aus der Vergleichsdatei im Original gesucht werden und dann die Zeilen verglichen werden.
Noch komplizierter wird es, wenn man auch die Zeilen erfassen/markieren will, die im Original vorhanden, in der Vergleichsdatei aber gelöscht wurden.
Gruß
Franz


Sub Vergleich()
Dim wbOriginal As Workbook, wbVergleich As Workbook
Dim varDateiname
Dim wksOriginal As Worksheet, wksVergleich As Worksheet
Dim lngZeile As Long, lngSpalte As Long
Const lngFarbe As Long = 6 'gelb = markierfarbe für Unterschiede
'Original-Datei schreibgeschützt öffnen
varDateiname = Application.GetOpenFilename(Filefilter:="Exceldatei (*.xls), *.xls", _
Title:="Bitte Originaldatei öffnen")
If varDateiname = False Then Exit Sub
Set wbOriginal = Application.Workbooks.Open(Filename:=varDateiname, ReadOnly:=True)
'Vergleich-Datei öffnen
varDateiname = Application.GetOpenFilename(Filefilter:="Exceldatei (*.xls), *.xls", _
Title:="Bitte Vergleichdatei öffnen")
If varDateiname = False Then
wbOriginal.Close savechanges = False
Exit Sub
End If
Set wbVergleich = Application.Workbooks.Open(Filename:=varDateiname)
'zu vergleichende Tabellen setzen
Set wksOriginal = wbOriginal.Worksheets(1) 'Datei-Original 1. Tabelle
Set wksVergleich = wbVergleich.Worksheets(1) 'Vergleich-Original 1. Tabelle
Application.ScreenUpdating = False
'Tabellen vergleichen und in Vergleichtabelle markieren
With wksVergleich
For lngZeile = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Row
For lngSpalte = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Column
If .Cells(lngZeile, lngSpalte).Value <> wksOriginal.Cells(lngZeile, lngSpalte).Value  _
Then
.Cells(lngZeile, lngSpalte).Interior.ColorIndex = lngFarbe
End If
Next
Next
End With
Application.ScreenUpdating = True
End Sub



 Bild

Excel-Beispiele zum Thema "Dateien vergleichen (Zeileninhalte)"

Alle Dateien im Verzeichnis öffnen download Dateien listen download
400 leere Textdateien anlegen download XL-Dateien in UserForm listen download
XL5/7-Dateien nach XL8 konvertieren download Dateien aus Listbox auslesen und öffnen download
Excel-Dateien eines Ordners listen download Alle Dateien ab einem bestimmten Datum listen download
Alle Dateien eines Verzeichnisses drucken download Textdateien verbinden download
Serie von Dateien in das XL5/7-Format konvertieren download Verzeichnisbaum aufrufen und Dateien in ListBox auflisten download
Dateien einer Ordnerliste in einer Tabelle zusammenstellen download Daten aus allen Dateien eines Verzeichnisses zusammenführen download
Hyperlinks zu allen Excel-Dateien eines Verzeichnisses erstellen download Dateien in einem Verzeichnis und Unterverzeichnissen suchen download
XL-Dateien aus Haupt- und Unterverzeichnissen einlesen download Die Eigenschaft "Stichwort" in allen Dateien eines Ordners ändern download
Textdateien vergleichen und Unterschiede dokumentieren download Löschen von Dateien beim Schließen einer Arbeitsmappe download
Grafikdateien suchen download Erste Blätter aus allen Dateien eines Verzeichnisses sammeln download
Von allen Arbeitsblättern der Mappe HTML-Dateien anlegen download Textdateien auslesen und in Werte in Zellen eintragen download
Werte nach Gruppen aufteilen und in gesonderten Dateien speichern download Fragen aus Textdateien in UserForm-Label einlesen download
Text in Textdateien suchen und Fundzeilen in Tabelle ausgeben download Alle Dateien löschen, die älter als 30 Tage sind download
Dateien mit Angabe des Dateidatums mit Hyperlink listen download Dateien listen und gekennzeichnete öffnen download
UserForm-TextBoxes-Texte in Textdateien speichern download Tabellenblattinhalte in getrennten Textdateien speichern download
Dateien listen und Blätter in neue Arbeitsmappe kopieren download Bei Doppelklick Textdateien in Editor öffnen download
Dateiliste mit allen xl-Dateien und Hyperlinks erstellen download Aufruf von Textdateien protokollieren download
Textdateien mit einer Zeile in Tabelle einlesen download Alle Textdateien eines Verzeichnisses importieren download
Dateien öffnen, Verknüpfungen aktualisieren, speichern, schießen download Dateien suchen download
Dateien mit bestimmtem Inhalt suchen download Zellen vergleichen und markieren download
Tabellen vergleichen download Spalten A und B vergleichen und Doppel in C listen download
Werte vergleichen download Bereiche auf Übereinstimmung vergleichen download
Daten in jeweils einer Spalte zweier Tabellen vergleichen download Werte vergleichen und Ergebnis in Tabelle eintragen download
Tabellen vergleichen und Zeilen ersetzen download Tabellen vergleichen und bei Nichtübereinstimmung markieren download
Spalte A mit B vergleichen und Doppel in C eintragen download Telefonnumern mit Liste vergleichen und durch Namen ersetzen download
Werte vergleichen und übertragen download Teilstrings vergleichen und markieren download
Textmuster vergleichen download