Gruppe
Ereignis
Problem
Bei Doppelklick auf Zelle E13 soll die dort gelinkte Arbeitsmappe geöffnet werden. Anpassung des Pfades/Dateinamens erforderlich.
ClassModule: Tabelle1
Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean)
Dim sTxt As String
Cancel = True
On Error GoTo ERRORHANDLER
sTxt = ActiveCell.Formula
sTxt = Left(sTxt, InStr(sTxt, "]") - 1)
sTxt = WorksheetFunction.Substitute(sTxt, "'", "")
sTxt = WorksheetFunction.Substitute(sTxt, "=", "")
sTxt = WorksheetFunction.Substitute(sTxt, "[", "")
If Dir(sTxt) <> "" Then
Workbooks.Open sTxt
Else
MsgBox "Datei " & sTxt & " wurde nicht gefunden!"
End If
ERRORHANDLER:
End Sub