Hyperlink
05.10.2004 11:14:29
Werner
mit der unten aufgeführten Anweisung lese ich die Dateinamen aus einem Verzeichnis, geht auch. Es soll aber erst ab der Zelle A2 aufgelistet werden und auch ab da die Hyperlings zugewiesen werden. Was mus ich da ändern.
Sub Hyperlinks_einfügen()
Worksheets(1).Columns(1).Clear
With Application.FileSearch
.NewSearch
.LookIn = "I:\Werkzeugreparatur\WZR_Auftrag\"
.Filename = "*.xls"
.SearchSubFolders = False
.Execute
icount = .FoundFiles.count
For i = 1 To icount
Worksheets(1).Hyperlinks.Add anchor:=Worksheets(1).Cells(i, 1), Address:=.FoundFiles(i)
For j = Len(Cells(i, 1)) To 1 Step -1
If Cells(i, 1).Characters(j, 1).Text = "\" Then
Cells(i, 1) = Right(Cells(i, 1), Len(Cells(i, 1)) - j)
Exit For
End If
Next j
Next i
End With
End Sub
Werner