Spalte mit .find nach Werten aus Liste druchsuchen
19.09.2016 14:33:18
Jonas
ich probiere gerade eine Spalte mit Text nach bestimmten Schlagwörtern aus einer anderen Tabelle zu durchsuchen, um dann in einer anderen Zeile einen Vermerk zu machen.
Allerdings funktionert es nicht. Debugger bring keine Fehlermeldung aber der Code läuft nur bis zur Set Entry Stelle.
Wäre super wenn mir jemand auf die Sprünge helfen könnte!
Vielen Dank schon mal dafür, Grüße
Jonas
Sub AllocateVectors()
With ThisWorkbook.Worksheets("WebinarFilterd")
Dim Entry As Range
URSource = .UsedRange.Rows.Count
URVector = ThisWorkbook.Worksheets("SearchVectors").UsedRange.Rows.Count
For i = 1 To URSource
For n = 1 To URVectors
Set Entry = Worksheets("WebinarFilterd").Range.Cells(i, "B").Find(what:=Worksheets(" _
SearchVectors").Cells(n, "A"))
If Not Entry Is Nothing Then
Cells(i, "F").Value = Worksheets("SearchVectors").Cells(n, "A")
Else
End If
Next n
Next i
End With
End Sub