Hyperlink in Spalte A ausführen bei Klick auf Spalte E...

Frage: Meine Hyperlinks sind in Spalte A. Diese möchte ich bei einem Klick auf Spalte E ausführen. Dies unabhängig davon ob es eingefügte Hyperlinks sind oder über die Hyperlink-Funktion. Wie geht das?

My Hyperlinks are in column A. I want to run this at a click of column E. This is regardless of whether they are inserted hyperlinks or the hyperlink function. How does it work?

Hier noch eine Beispieldatei / Here's a sample file:
Hyperlink in Spalte A ausführen bei Klick auf Spalte E...[ZIP 450 KB]

' Variablendeklaration erforderlich
Option Explicit
'--------------------------------------------------------------------------
' Module    : Sheet1
' Procedure : Worksheet_SelectionChange
' Author    : Case (Ralf Stolzenburg)
' Date      : 23.10.2013
' Purpose   : Hyperlink in Spalte A ausführen bei Klick auf Spalte E...
'--------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' Wenn ein Fehler auftritt gehe zu der angegebenen Sprungmarke
    On Error GoTo Fin
    ' Ereignisroutinen werden deaktiviert
    Application.EnableEvents = False
    ' Bedingte Kompilierung - siehe folgende Links...
    ' http://msdn.microsoft.com/de-de/library/office/gg264803.aspx
    ' http://msdn.microsoft.com/de-de/library/office/ee691831%28v=office.14%29.aspx
    #If VBA7 Then
        If Not Target.CountLarge > 1 Then
    #Else
        If Not Target.Count > 1 Then
    #End If
        ' Wenn in Spalte E geklickt wird, dann...
        If Not Intersect(Target, Columns(5)) Is Nothing Then
            ' Code bezieht sich auf entsprechende Zelle in Spalte A
            With Target.Offset(, -4)
                ' Wenn dort ein Hyperlink ist dann...
                If .Hyperlinks.Count = 1 Then
                    ' ... öffne den Link
                    ThisWorkbook.FollowHyperlink .Hyperlinks(1).Address
                ' Wenn dort eine Formel (=HYPERLINK) ist, dann...
                ElseIf .Formula Like "=HYPER*" Then
                    ' öffne den Hyperlink (gesplittet aus der Formel)
                    ThisWorkbook.FollowHyperlink Split(.Formula, """")(1)
                End If
            End With
        End If
    End If
Fin:
    ' Ereignisroutinen werden aktiviert
    Application.EnableEvents = True
    ' Wenn ein Fehler auftritt gib ihn aus mit Fehlernummer und Beschreibung
    If Err.Number <> 0 Then MsgBox "Error: " & _
        Err.Number & " " & Err.Description
End Sub

Kommentare

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...