In diesem Beispiel wird der Zelle A5 ein Hyperlink hinzugefügt.
With Worksheets(1) .Hyperlinks.Add Anchor:=.Range("a5"), _ Address:="http://example.microsoft.com", _ ScreenTip:="Microsoft Web Site", _ TextToDisplay:="Microsoft" End With
In diesem Beispiel wird der Zelle A5 ein E-Mail-Hyperlink hinzugefügt.
With Worksheets(1) .Hyperlinks.Add Anchor:=.Range("a5"), _ Address:="mailto:someone@microsoft.com?subject=hello", _ ScreenTip:="Write us today", _ TextToDisplay:="Support" End With