Public Function HyperlinkAdd(Optional Dateipfad As String = "\", Optional row As Integer)
Dim i As Integer
For i = Len(Dateipfad) To 1 Step -1
If Mid(Dateipfad, i, 1) = "\" Then
Worksheets(1).Hyperlinks.Add _
Anchor:=Range("A" & row), _
Address:=Dateipfad, _
ScreenTip:="Hyperlink:" & vbCrLf & Dateipfad, _
TextToDisplay:=Mid(Dateipfad, i + 1)
Exit For
End If
Next
End Function