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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen