Office: Zellinhalt mit Dateien vergleichen ob vorhanden

Hallo, ich bin neu hier. Nachdem ich stundenlang vergeblich im Internet nach einer Lösung suchte, hoffe ich hier Hilfe zu bekommen. Ich arbeite noch mit Excel 2010.
Mein Problem:
Ich habe eine Excel-Liste mit Titelnamen in Spalte A5 bis Spaltenende (je nach Anzahl der Titel) . Ferner habe ich einen Ordner in dem einige dieser Titel in PDF-Form vorliegen. Wie muss ein Makro aussehen, dass auf Knopfdruck alle Titel in Spalte A5 bis Ende durchläuft und bei gleichem gefundenen Dateinamen.pdf (Titelname = Dateiname.pdf) in Spalte E die Zeile mit einem "x" markiert?

 

Hi,

ich nehem an, du meinst das so:

Code:

Sub DateienAuflisten()
    Dim lngZeile As Long
    Dim strPfad As String
    strPfad = "E:\Z_Test\" '<== Pfad anpassen
    For lngZeile = 5 To Columns(1).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        If Dir(strPfad & Cells(lngZeile, 1) & ".PDF") <> "" Then Cells(lngZeile, 5) = "X"
    Next lngZeile
End Sub

---

 

Liebe Beverly, Sie haben mein Problem auf Anhieb erkannt und mit Bravour gelöst. Vielen herzlichen Dank!