Hyperlink automatisch einfügen
04.10.2004 15:26:51
Werner
mit dieser Anweisung, lasse ich beim Starten der Datei die Exceldateien aud dem Ordner I:\Werkzeugreparatur\WZR_Auftrag auflisten.
Ist es möglich aus den aufgelisteten Dateinamen gleich eine Hyperlikverknüpfung zu den einzelnen Dateien zu erstellen?
Private Sub Workbook_Open()
Dim Datei As String
Dim Dateiname As String
Dim i As Long
ChDrive "I"
ChDir "I:\Werkzeugreparatur\WZR_Auftrag"
Datei = Dir("*.xls", vbNormal)
i = 2
Do While Datei <> ""
If (GetAttr(Datei) And vbNormal) = vbNormal Then
If Right(Datei, 3) <> "XLA" Then 'XLA-Dateien (AddIns) dürfen nicht behandelt werden
Dateiname = Datei
Dateiname = Left(Dateiname, Len(Dateiname) - 0)
Cells(i, 1).Value = Dateiname
i = i + 1
End If
End If
Datei = Dir()
Loop
End Sub
Werner