|
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
|