In Tabelle1 möchte ich Spalte B doppelklicken und die angeklickte Zeile in Tabelle2 Spalte B den Wert finden und den Hyperlink öffnen.
Wenn ich das ohne Hyperlink mache zb. Andere Spalte wo keine Hypelinks sind Funktioniert es .
Der Fehler im Makro ist der das der Hyperlink nicht erkannt wird und nicht geöffnet wird.
Wer kann mir bitte helfen für euch sicher ne kleinichkeit.
Danke
https://www.herber.de/bbs/user/147800.xlsm
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim C As Range
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Set C = Tabelle2.Range("B:B").Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not C Is Nothing Then
Application.Goto C
End If
Cancel = True
End If
End Sub
GrußOraculix