Hallo zusammen,
nach mehreren erfolglosen Versuchen wende ich mich einfach mal an euch.
Mein Problem ist folgendes. Ich habe eine Liste in der unter Verwendung von Namen und Nachnamen (Jeweils in seperaten Spalten eingetragen) eine entsprechende PDF-Datei geöffnet werden soll die aus den gleichen Textteilen benannt wurde.
| Name |
Vorname |
Dateiname |
| Mustermann |
Max |
Mustermann Max iwas.pdf |
Unter Verwendung folgendes Codes schaffe ich es bereits abzufragen ob eine entsprechend benannte Datei unter dem angegebenen Pfad existiert.
Dim strPfad As String
Dim strDatei As String
Dim rngName As Range
strPfad = "Z:\Pfad"
strDatei = Dir(strPfad & "\*.pdf")
Do
Set rngName = Columns(4).Find(Split(strDatei, " ")(0), lookat:=xlWhole)
If Not rngName Is Nothing Then rngBild.Offset(0, 2) = strDatei
strDatei = Dir
Loop While strDatei <> ""
Sobald zwei Personen mit gleichem Namen existieren wird mir allerdings nur ein Eintrag in die entsprechende Spalte angezeigt.
Ich hoffe, dass ihr mir helfen könnt. Es würde mir denke ich bereits helfen, wenn ich beide Einträge (Name und Vorname) zusammenfüge und den String bis zum Ende des 2. Leerzeichens absuche. Leider mangelt es hierfür allerdings an dem notwendigen KnowHow.
Vielen Dank schonmal im Voraus.
Beste Grüße
SvenP
|