Hallo

Ich habe folgenden Code der beim Doppelklick in Spalte bei Doppelklick in Spalte 10 in Tabelle Adressen in Spalte A nachschaut ob der Wert vorhanden ist und dann in Spalte B den dazugehörigen Hyperlink öffnet.

    Private Declare PtrSafe Function ShellExecuteA Lib "Shell32.dll" ( _
            ByVal hwnd As LongPtr, ByVal lpOperation As String, _
            ByVal lpFile As String, ByVal lpParameters As String, _
            ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      Dim vZeile As Variant, WSh As Worksheet
     
      Set WSh = Worksheets("Adressen")                ' Datenblatt setzen
     
      With Target
         If .Column = 10 And .Value <> "" Then       ' In Spalte I suchen
            vZeile = Application.Match(.Value, WSh.Range("A:A"), 0)
            If Not IsError(vZeile) Then
               ShellExecuteA 0&, "Open", WSh.Cells(vZeile, "B").Value, 0, 0, 10
               Cancel = True
            End If
         End If
      End With
    End Sub

Nun bräuchte ich aber in der Selben Tabelle den selben Code nur etwas umgebaut nun soll beiDoppelklick in Spalte 4 In der Tabelle xxxx in Spalte 4 nachschauen ob der Wert vorhanden ist und wenn der Wert vorhanden ist dann soll der Curor in der gleichen Zeile in Spalte 2 springen.

Wäre cool wenn es dafür eine Lösung geben würde.

Horst