2023-03-03

VBS-Makro, das zwei Excel-Tabellen vergleicht

Option Explicit

Sub CompareTables()
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim i As Long, j As Long
Dim rowMatch As Boolean

‘ Öffne die beiden Arbeitsmappen und Arbeitsblätter
Set wb1 = Workbooks.Open(”C:PfadzurerstenTabelle.xlsx”)
Set wb2 = Workbooks.Open(”C:PfadzurzweitenTabelle.xlsx”)
Set ws1 = wb1.Worksheets(1)
Set ws2 = wb2.Worksheets(1)

‘ Vergleiche jede Zeile in der ersten Tabelle mit jeder Zeile in der zweiten Tabelle
For i = 1 To ws1.UsedRange.Rows.Count
rowMatch = False
For j = 1 To ws2.UsedRange.Rows.Count
If ws1.Cells(i, 1).Value = ws2.Cells(j, 1).Value And _
ws1.Cells(i, 2).Value = ws2.Cells(j, 2).Value And _
ws1.Cells(i, 3).Value = ws2.Cells(j, 3).Value Then
‘ Die Zeilen stimmen überein
rowMatch = True
Exit For
End If
Next j
If Not rowMatch Then
‘ Die Zeile existiert nicht in der zweiten Tabelle
MsgBox “Zeile ” & i & ” in Tabelle 1 existiert nicht in Tabelle 2”
End If
Next i

‘ Schließe die Arbeitsmappen
wb1.Close False
wb2.Close False
End Sub