diese Aufgabe erledigen dir die folgenden beiden Makros:
Sub DateienAuflisten()
Dim i As Long
Const verz = "C:\temp\"
On Error GoTo fehler
ChDir verz
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)
ActiveCell.Offset(1, 0).Select
Next i
End With
Exit Sub
fehler:
MsgBox "Es gibt kein Verzeichnis mit dem Namen " & verz
End Sub
Sub DateienInHyperlinksWandeln()
Dim Bereich As Range
Dim Zelle As Range
Range("A1").Select
Set Bereich = ActiveCell.CurrentRegion
For Each Zelle In Bereich
Zelle.Hyperlinks.Add Zelle, Zelle.Value
Next Zelle
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de
Jetzt muß ich nur noch auf andere Dateien (doc, pdf, usw.)anpassen. In dieser Zeile denk ich mal.
.FileType = msoFileTypeExcelWorkbooks
Ich versuche es mal und melde mich später noch mal.
Die Zeile einfach löschen.
Gruss
Chris
Danke für die Rückmeldung. Ja genau!
aus
FileType = msoFileTypeExcelWorkbooks
muss werden zu
FileType =msoFileTypeAllFiles
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de