Link vergleich und verändern
08.08.2006 13:02:37
Psus82
ich habe ein Problem.Ich habe eine Liste wo in einer Spalte Nummern stehen.
Diese Nummern sind mit einem PDF verlinkt was genauso heißt nur halt die ".pdf" Endung hat.
Nun möchte ich ein Makro was einen von mir ausgewählten Bereich in der Spalte nimmt und die Nummern mit den gleichnamigen PDFs aus einem bestimmten Ordner vergleicht und wenn sie gleich sind verlinkt.
Könnt ihr meinen Ansatz verbessern oder mir eine bessere Methode zeigen?
Mein Ansatz der leider nicht funktioniert sieht so aus.:
Private Sub DyxLink()
Dim DyxList As String
Dim LA As String
Dim LSA As String
Dim LTTD As String
Dim Row As Integer
Dim i As Integer
Dim i2 As Integer
With Application.FileSearch
.LookIn = "C:\"
.SearchSubFolders = True
.Filename = "*.pdf"
.Execute
DyxNumb = Range
Row = ActiveCell.Row
If DyxNumb.Count > 0 Then
For i2 = 1 To DyxNumb.Count
If .FoundFiles.Count > 0 Then
For i = 1 To .FoundFiles.Count
LA = "C:\" & FoundFiles(i)
LSA = "Sheet1!B" & Row + i
LTTD = FoundFiles(i)
If DyxNumb(i2) = FoundFiles(i) Then ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=LA, SubAddress:=LSA, TextToDisplay:=LTTD
Next i
Else
MsgBox "Es wurden keine Dateien gefunden !", vbInformation
End If
Next i2
End If
End With
End Sub