Vergleich eines Wertes mit denen von Liste

Sub VergleichMitListen()
'Variablen deklarieren
Dim strPfad As String
Dim rng As Range
Dim strOrt As String
'Einlesen des Dateipfades der Vergleichsliste
strPfad = "Pfadname"
'Einlesen der ausgewählten Zellen, welche abgeglichen werden sollen
Set rng = Selection.Cells
'Schleife, die so oft durchsucht werden soll, wie in der Range Werte enthalten sind
For Each rng In Selection
'Nimm nun den Wert aus rng und vergleiche ihn mit Spalte 1 aus Tabelle von strPfad
'Wenn der Wert enthalten ist, dann merke Dir den Ort der Zelle in strOrt
'Wenn der Wert nicht enthalten ist, tue nichts
Next
End Sub