Code abändern
01.09.2003 14:29:12
sigi
wie ändere ich nachfolgnden Code so ab, dass
nur der Arbeitsmappenname ohne die Order aufgeführt wird?
Danke
Gruß Sigi
Sub Einlesen()
Dim arr As Variant
Dim iCounter As Integer
ActiveSheet.Hyperlinks.Delete
Range("A2:A100").ClearContents
With Application.FileSearch
.LookIn = Range("D1").Value
.FileType = msoFileTypeOfficeFiles
.Execute
For iCounter = 1 To .FoundFiles.Count
Cells(iCounter + 1, 1).Value = .FoundFiles(iCounter)
ActiveSheet.Hyperlinks.Add _
Anchor:=Cells(iCounter + 1, 1), _
Address:=.FoundFiles(iCounter)
Next iCounter
End With
Columns(1).AutoFit
End Sub