|
Moin, kann mir jemand sagen, wie man diesen Code ergänzen muss, damit die aufgelisteten Dateien in Spalte A als Hyperlinks erscheinen?
Sub Suchen()
Dim Laufwerk$, Dateien$
'Ersze Zeile, in der eine Eintragung erfolgt
z = 2
'Alte Eintragungen löschen
[a2:a64000] = ""
'Den Variablen Laufwerk und Dateien kann
'auch ein direkter Wert zugewiesen werden.
'Ersatz: ... = "C:\Eigene Dateien"
Laufwerk = ThisWorkbook.path & "\neue_pdfs\"
'Laufwerk = "E:\Eigene Dateien\Eigene Bilder\"
If Laufwerk = "" Then Exit Sub
'Ersatz: Dateien = "*.*"
'Dateien = InputBox("Nach welchen Dateien soll in" & _
Chr(10) & " " & Laufwerk & Chr(10) & _
"gesucht werden (z. B. *.xls)?", _
"Dateityp", "*.pdf")
Dateien = "*.pdf"
If Dateien = "" Then Exit Sub
Dateisuche Laufwerk, Dateien
DoEvents
End Sub
|