Gibt es hierfür eine Lösung?
Danke
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' folgt einem Hyperlink einer Zelle, auf die mit Formel
' verwiesen wird
' code by schauan / 20060319
Dim textKette As String
If Target.Address = "$D$10" Then
'in D10 steht der Verweis
'auf eine Zelle mit Mail-Adresse
textKette =[D10].Formula
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"mailto:" &[D10], TextToDisplay:="mailto:" &[D10]
Selection.Hyperlinks(1).Follow NewWindow:=False, _
AddHistory:=True
Selection.Hyperlinks(1).Delete
[D10].Formula = textKette
End If
End Sub