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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen