Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei Doppelklick gelinkte Arbeitsmappe öffnen

Gruppe

BeforeDoubleClick

Problem

Bei Doppelklick auf Zelle E13 soll die dort gelinkte Arbeitsmappe geöffnet werden. Anpassung des Pfades/Dateinamens erforderlich.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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