ich möchte Spalten aus zwei Tabellenblättern miteinander vergleichen. Falls ein Wert in Spalte C vorkommt, den es in Spalte A aus dem anderen Blatt gibt, soll die Fundzeile farblich markiert werden.
Wie geht das?
Gruß Andi
Sub färben()
Dim iZeile As Integer
For iZeile = 2 To 2001
If Cells(iZeile, 6) = "Duplikat" Then Range("A" & iZeile, "C" & iZeile).Interior.ColorIndex = 6
Next iZeile
End Sub
Sub doppelte_Hintergrund_aendern2()
Dim loLetzte As Long
Dim i As Long
Dim j As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
loLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
For i = 1 To loLetzte
For j = 1 To loLetzte
If .Cells(j, 1).Value = Worksheets("Tabelle2").Cells(i, 3).Value Then
Worksheets("Tabelle2").Cells(i, 3).Interior.ColorIndex = 6
End If
Next j
Next i
End With
Application.ScreenUpdating = True
End Sub
Bis später,
Karin