wie kann ich Hyperlinks auf Textfelder setzen?
Grüße - Jörg
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("1")
ws.Activate
ws.Shapes("Text Box " & Mid(Target.Name, 10)).TopLeftCell.Activate
End Sub
Danke für die Einstiegshilfe!