Thema: Zellen vergleichen und markieren

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

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