ich möchte gern Folgendes erreichen:
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
Ich hab leider noch keine zündende Idee, wie ich am effektivsten die Spalte 1 aus der zweiten Tabelle einlese und bei einem Treffer ausgebe.
Kann da wer helfen und mir einen Denkanstoß geben?
Vielen Dank und Grüße
Mathias