Suchfunktion
24.09.2018 08:45:47
Max
Untenstehendes Makro soll alle Werte aus Spalte H in Spalte R suchen. Wenn der Wert in Spalte R gefunden wurde, dann die Zelle aus H und die Zelle aus R grün markieren.
Problem 1: Wenn der Wert aus Spalte H in Spalte R mehrmals auftaucht, dann sollen die gefundenen Werte aus Spalte H und R (Rot sein)
Problem 2: Wenn der Wert aus Spalte H nicht in R auftaucht, dann den Wert in H rot markieren pre>
Sub findmatches()
Dim i As Variant
Dim suchmich As Variant
Columns(12).NumberFormat = "0.0000"
Columns(8).NumberFormat = "0.0000"
letztezeile = Worksheets(1).Cells(Rows.Count, 8).End(xlUp).Row
For i = 3 To letztezeile
suchmich = ActiveSheet.Cells(i, 8).Value
On Error Resume next
Range("R:R").Find(What:=suchmich, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
If Cells(i, 18) = suchmich Then
ActiveCell.Interior.ColorIndex = 50
Cells(i, 8).Interior.ColorIndex = 50
End If
End If
Next i
End Sub
Anzeige