Gruppe
Allgemein
Bereich
Markieren
Thema
Zellen vergleichen und markieren
Problem
Wie kann ich zwei Spalten verschiedener Arbeitsblätter vergleichen und Übereinstimmungen in beiden Blättern kennzeichnen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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