Zellen vergleichen und farblich markieren
07.02.2017 09:44:44
Markus
ich hoffe ihr könnt mir weiter helfen.
Ich steh vor der Aufgabe zwei Exceltabellen zu vergleichen. Es wurde teilweise der Text in einzelnen Zellen ergänzt und es kamen Zeilen hinzu.
Wie schaffe ich es nun, die beiden Tabellenblätter zu vergleichen und die hinzugefügten oder geänderten Stellen farblich zu markieren?!
Ich habe in der Suche das gefunden:
StandardModule: basMain
Sub Vergleich()
Dim wks As Worksheet
Dim var As Variant
Dim iRow As Integer
Set wks = Worksheets("Tabelle2")
For iRow = 1 To WorksheetFunction.CountA(Columns(1))
var = Application.Match(Cells(iRow, 1).Value, wks.Columns(1), 0)
If Not IsError(var) Then
Cells(iRow, 1).Interior.ColorIndex = 3
wks.Cells(var, 1).Interior.ColorIndex = 3
End If
Next iRow
End Sub
Wie kann ich das Makro noch ergänzen/ändern?
Vielen, vielen Dank,
Markus
Anzeige