mit folgendem Code prüfe ich ob Exceldateien existieren und wenn ja, dann werden Hyperlinks erzeugt.
"LinkAdress" und "LinkSubAdress" sind in Tabellenspalten gespeichert.
Z.B. "G:\1.xls" und "Berlin_345!A1"
For i = 3 to LastRow
LinkAdress = Worksheets(1).Range("F" & i)
LinkSubAdress = Worksheets(1).Range("G" & i)
Z = InStrRev(LinkAdress, "\")
Linktext = Mid(LinkAdress, Z + 1, 256)
Z = InStrRev(LinkSubAdress, "!")
Linktext = Linktext & "_" & Mid(LinkSubAdress, 1, Z - 1)
If Dir(LinkAdress) "" Then 'Datei existiert
Worksheets(1).Range("B" & i).Parent.Hyperlinks.Add Anchor:=Range("B" & i), _
Address:=LinkAdress, _
SubAddress:=LinkSubAdress, TextToDisplay:=Linktext
Else
Worksheets(1).Range("B" & i) = Linktext
Worksheets(1).Range("B" & i).Font.Color = vbRed
End If
Next i
Gibt es eine Möglichkeit, den Befehl "Dir" zu ersetzen, so dass auch die Existenz des Sheet geprüft werden kann? Aus Geschwindigkeitsgründen ist es wünschenswert, wenn die Zieldateien nicht geöffnet werden. Viele Grüße,
Rainer