Hallo Leute. Ich würde gerne eine Spalte nach mehreren Werten absuchen, und wenn diese Werte nicht gefunden werden, sollen sie gelb markiert werden.
Die Werte nach denen zu suchen ist stehen in einer Spalte in Sheet 2 und die Spalte in der zu suchen ist befindet sich in Sheet 1. Der Plan war es, dass er die Werte nacheinander abarbeitet. Mein Code spuckt jedoch leider eine Fehlermeldung aus "Die Objektvariable oder die With-Blockvariable wurde nicht festgelegt." Vielleicht weiß ja einer von euch weiter.
Sub test()
Dim i As Long
With ThisWorkbook.Worksheets(2)
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
Worksheets(1).Columns("A:A").Select
Selection.Find(What:=Worksheets(2).Cells(i, 1).Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
If cell Is Nothing Then
Worksheets(2).Cells(i, 1).Interior.Color = vbYellow
End If
Next i
End With
End Sub
|