Untenstehender Code funktionierte bisher hinter einer bestimmten Tabelle (und dementsprechend am Beginn:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean).
Mit Doppelklick auf auf eine bestimmte Zelle der aktiven Tabelle lande ich in einer anderen _
Datei / oder Tabelle in einer anderen Zelle. - soweit war es prima.
Nun möchte ich diese Funktion in mehreren Tabellen der gleichen Datei verwenden habe deshalb _
auf den Ereigniscode Workbook_SheetBeforeDoubleClick umgestellt. Jedoch nicht erfolgreich, da _
nun die Fehlermeldung: "Deklaration der Prozedur entsprecht nicht der Beschreibung eines Ereignisses oder einer Prozedur mit demselben Namen erscheint". Das ist für mich spanisch (oder chinesisch). Mir ist nicht klar, was hier nicht in Ordnung ist. Kann mir jemand helfen?
Danke und Gruss, Peter
Option Explicit
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strPath As String, strFile As String, strTab As String, strRange As String
strPath = Cells(Target.Row, 1).Text
strFile = Cells(Target.Row, 2).Text
strTab = Cells(1, Target.Column).Text
strRange = Cells(2, Target.Column)
If Dir(strPath & strFile) "" Then
Cancel = True
ThisWorkbook.FollowHyperlink Address:=strPath & strFile
On Error Resume Next
Application.Goto ActiveWorkbook.Sheets(strTab).Range(strRange)
On Error GoTo 0
End If
End Sub