HERBERS Excel-Forum - die Beispiele

Thema: Tabellen vergleichen

Home

Gruppe

Allgemein

Problem

Ich möchte 2 Tabellen in 2 Arbeitsmappen miteinander vergleichen und die Datensätze, die nicht doppelt vorkommen, in einer neuen Arbeitsmappe sammeln. Wie kann ich das Problem über VBA lösen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub Vergleichen()
   Dim wkb As Workbook
   Dim wksA As Worksheet, wksB As Worksheet, wksC As Worksheet
   Dim iWks As Integer, iRow As Integer, iRowT As Integer
   On Error Resume Next
   For iWks = 1 To 3
      Set wkb = Workbooks("Mappe" & iWks)
   Next iWks
   If Err > 0 Or wkb Is Nothing Then
      Beep
      Err.Clear
      MsgBox prompt:="Die 3 Arbeitsmappen sind nicht vorhanden!"
      Exit Sub
   End If
   On Error GoTo 0
   Set wksA = Workbooks("Mappe1").Worksheets(1)
   Set wksB = Workbooks("Mappe2").Worksheets(1)
   Set wksC = Workbooks("Mappe3").Worksheets(1)
   iRow = 1
   Do Until IsEmpty(wksA.Cells(iRow, 1))
      If WorksheetFunction.CountIf( _
         wksB.Columns(1), _
         wksA.Cells(iRow, 1).Value) = 0 Then
         iRowT = iRowT + 1
         wksC.Cells(iRowT, 1).Value = wksA.Cells(iRow, 1).Value
         wksC.Cells(iRowT, 2).Value = wksA.Parent.Name
      End If
      iRow = iRow + 1
   Loop
   iRow = 1
   Do Until IsEmpty(wksB.Cells(iRow, 1))
      If WorksheetFunction.CountIf( _
         wksA.Columns(1), _
         wksB.Cells(iRow, 1).Value) = 0 Then
         iRowT = iRowT + 1
         wksC.Cells(iRowT, 1).Value = wksB.Cells(iRow, 1).Value
         wksC.Cells(iRowT, 2).Value = wksB.Parent.Name
      End If
      iRow = iRow + 1
   Loop
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Vergleich

Vergleichen von zellen Listen vergleichen
VERGLEICH/INDEX Formelproblem Sortierung und Vergleich mit "Fallen"
2 Zellen vergleichen und Werte in Folgen summieren Vergleichen zweier Dateien und aktualisieren
Vergleich / Gemeinsamkeiten finden Zellen vergleichen
Index Vergleich Formel mit Summenformel Tabellenblätter vergleichen
UserForm TextBox mit ComboBox Datum vergleichen Vergleich innerhalb einer matrix
Zeilenweise in der Spalte Vergleichen? Spalten Vergleichen
Dateien vergleichen-doppelte löschen Spalten vergleichen
Spalten vergleichen 2 Dateien Vergleichen und Spalten kopieren?
2 Dateien Vergleichen und Spalten kopieren? Daten einlesen und vergleichen mit VBA
Dateien vergleichen (Zeileninhalte) 2ter Versuch Vergleichen und Makieren per Makro
Verschiedene Tabellenblätter per Makro vergleichen Unterschiedliche Tabellen miteinander vergleichen
Macro für vergleich und makieren Min und Max bei vergleichender Betrachtung
VBA -Verweis/Vergleich Erhöhung (Vergleich) in %
Kombination von INDEX/Vergleich für Wertevergleich Vergleichen
Diagramm Vergleich Werte A mit Werte B+C Vergleich Datum in CB mit Datum in einem Bereich
Zeilenweise vergleichen 2 Datein vergleichen
Match / Vergleich Vergleichen von Tabellen
Tabelleneinträge vergleichen Text aus 2 Spalten vergleichen und angeben
Drei Spalten vergleichen? Zwei Listen vergleichen
Vergleich zweier Tabellenblätter Allgemeine Frage zur Fehlerbehandlung
allgemeine Fragen zu einer Datenbank Vergleich Spalten mit Markierung
Tabellenblätter vergleichen per VBA Variablen vergleichen
Spalten vergleichen mit Leerzeichen VERGLEICH
Zellen vergleichen Vergleich zweier Tabellen