VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei Doppelklick gelinkte Arbeitsmappe öffnen

Gruppe

Ereignis

Bereich

BeforeDoubleClick

Thema

Bei Doppelklick gelinkte Arbeitsmappe öffnen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und BeforeDoubleClick