das follwhyperlink-Ereignis reagiert nicht auf Hyperlinks, die mit der Funktion =HYPERLINK() in eine Zelle eingefügt wurden. Oder sehe ich das falsch? Kann man das umgehen?
VG,
Frank
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Wird ausgeführt, nachdem Hyperlink geöffnet wurde
MsgBox "Hyperlink-Zelle mit Hyperlink"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Prüfen, ob eine Zelle im Zellbereich mit den Hyperlink-Formeln selektiert wurde
'Hier Spalte B ab Zeile 3
If Target.Column = 2 And Target.Row >= 3 Then
If Target.Cells.Count = 1 And Target.HasFormula _
And InStr(1, Target.Formula, "HYPERLINK") > 0 Then
'Wird ausgeführt nachdem Formelhyperlink geöffnet wurde
MsgBox "Zellselektion-Zelle mit Formel-Hyperlink"
End If
End If
End Sub