Gruppe
Allgemein
Bereich
Hyperlink
Thema
Hyperlinks setzen, wenn Zieldatei gefunden wurde
Problem
In den ausgewählten Zellen werden, wenn die Zieladresse gefunden wurde, Hyperlinks zu Zieladresse gesetzt.
Lösung
Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub SetHyperlinks()
Dim rng As Range
For Each rng In Selection.Cells
If Not IsEmpty(rng) Then
If Dir(rng.Value) <> "" Then
rng.Hyperlinks.Add _
anchor:=rng, _
Address:=rng.Value
End If
End If
Next rng
End Sub