Blog
Hier poste ich dinge zu Themen die mich beschäftigten.
2023-03-03
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
Admin - 14:12:32 @ VBS-Skripte
Die an dieser Stelle vorgesehenen Inhalte können aufgrund Ihrer aktuellen Cookie-Einstellungen nicht angezeigt werden.
Diese Webseite bietet möglicherweise Inhalte oder Funktionalitäten an, die von Drittanbietern eigenverantwortlich zur Verfügung gestellt werden. Diese Drittanbieter können eigene Cookies setzen, z.B. um die Nutzeraktivität zu verfolgen oder ihre Angebote zu personalisieren und zu optimieren.
Diese Webseite verwendet Cookies, um Besuchern ein optimales Nutzererlebnis zu bieten. Bestimmte Inhalte von Drittanbietern werden nur angezeigt, wenn die entsprechende Option aktiviert ist. Die Datenverarbeitung kann dann auch in einem Drittland erfolgen. Weitere Informationen hierzu in der Datenschutzerklärung.