mit nachstehendem Code suche ich nach Datein welche es anschlissen in Spalte A auflistet und Sortiert.
Ich möchte nun die Aufgelisteten Dateinen mit einem Hyperlink versehen, so dass ich diese per Klick einzeln öffnen kann
Kann mir da jemand helfen
Private Sub Workbook_Open()
Dim I As Long
Dim Dateiname As String
Dim Lw As String
On Error GoTo Errorhandler
Lw = InputBox("Lauferwerk eingeben")
Dateiname = InputBox("Bitte den Dateinamen eingeben")
ChDir Lw
With Application.FileSearch
.NewSearch
.Filename = Dateiname
.LookIn = Lw
.SearchSubFolders = True
.Execute
For I = 1 To .FoundFiles.Count
Cells(I, 1) = .FoundFiles(I)
Next I
End With
Columns("A:A").Select 'Daten sortiern
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Columns("A:A").EntireColumn.AutoFit
Exit Sub
Errorhandler:
MsgBox "Keine Einträge gefunden"
End Sub
besten Dank
Gruss Pius