Ich suche diesmal eine Möglichkeit eine Wertetabelle mit einer anderen zu vergleichen. Falls die Werte in der anderen ebenfalls existieren sollen die Zellen eingefärbt werden.
Für einen bestimmten Wert (in diesem Fall 5) kein Problem:
Sub einfärben()
Dim rng As Range
Dim myValue As String
Wert = "5"
Set rng = ActiveSheet.Range("A1:A10")
For Each cell In rng.Cells
If (InStr(cell.Value, Wert)) Then
cell.Interior.Color = RGB(255, 0, 0)
End If
Next cell
End Sub
Jetzt möchte ich eigentlich nur den Wert 5 durche eine Range ersetzen. Die Funktion InStr funktioniert da natürlich nicht mehr da sie ja nur nach einem String sucht.
Wie könnte man das Programm abändern? Gesucht werden soll im Bereich D2:D50.