Hyperlink Makro ohne sortierung
04.03.2009 10:08:37
Modolo
Mit unten stehendem Makro, (das ich hier im Forum gefunden habe, Vielen Dank an den Erstellter) wird aus einem Verzeichnis gelesen, aufgelistet und verlikt.
Mein Problem ist das dabei auch sortiert wird, ich würde aber gern die Reinfolge aus dem Verzeichnis übernehmen damit ich noch die ein oder andere Info hinzufügen kann.
Kann mir jemand mit mehr Erfahrung sagen wo hier sortiert wird und wie ich das abstelle?
Sub DateienAuflistenUndHyperlinken()
Dim i As Long
Dim Zelle As Range
Const verz = "Y:\4R"
ChDir verz
Range("A2").Select
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.Filename = "*.pdf"
.Execute
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)
ActiveCell.Offset(1, 0).Select
Next i
End With
Range("A2").Select
Set Bereich = ActiveCell.CurrentRegion
For Each Zelle In Bereich
Zelle.Hyperlinks.Add Zelle, Zelle.Value
Next Zelle
End Sub
Danke
