Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    'Bezug entzerren
    x = Target.Formula
    If Trim(x) <> "" Then
        x = Replace(x, "=", "")
        x = Replace(x, "'", "")
        ' Datei mit Pfad
        pdatei = Left(x, InStr(1, x, "]"))
        pdatei = Replace(pdatei, "]", "")
        pdatei = Replace(pdatei, "[", "")
        'Arbeitsmappenname
        mappe = Mid(x, InStr(1, x, "]") + 1, InStr(1, x, "!") - InStr(1, x, "]") - 1)
        'Zellenbezug
        zelle = Right(x, Len(x) - InStr(1, x, "!"))
        'MsgBox pdatei & " " & mappe & " " & zelle
        'Öffnen des Bezugs, entweder in Datei oder extern
        If Trim(Dir(pdatei)) <> "" Then
            If Trim(pdatei) <> "" Then
              Workbooks.Open Filename:=pdatei
              datei = pdatei
              While InStr(1, datei, "\") <> 0
                ' schleife
                datei = Right(datei, Len(datei) - InStr(1, datei, "\"))
                'MsgBox datei
              Wend
              '
              Application.Windows(datei).Activate
            End If
            Application.Sheets(mappe).Select
            zeile = Range(zelle).Row
            spalte = Range(zelle).Column
            Application.Worksheets(mappe).Cells(zeile, spalte).Select
        Else
            MsgBox "Bezug nicht vorhanden"
        End If
    End If
    '
End Sub