超链接到实际工作簿中的现有工作表

我如何添加超链接到特定的单元格，并将其转换到excel文件中的工作表？

这是我已经得到：

Cells(zeile, 1).Select Worksheets(1).Hyperlinks.Add Anchor:=Selection, Address:=Workbooks(1).Worksheets(fortnr), SubAddress:=Cells(1, 1).Address

谢谢

 ActiveSheet.Hyperlinks.Add ActiveCell, "", Sheets(fortnr).Name & "!A1"

地址应该是空白的，SubAddress应该是Sheet1！A1格式。假设您有一个名为fortnr的variables，在同一个工作簿中包含一个有效的工作表名称，将这个链接放在activecell中。

如果要指向不同工作簿中的某个单元格，则除Address（地址）需要该文件外，其余部分都是相同的。

 ActiveSheet.Hyperlinks.Add ActiveCell, Workbooks(1).FullName, Sheets(fortnr).Name & "!A1"

假设工作簿（1）是一个不同的文件，以前已经保存，并有一个正确的名称，等等表

想法1：添加一个超链接到当前活动单元格

假设要链接到的表格名称是“VBA1”

ActiveSheet.Hyperlinks.Add Activecell，“”，“VBA1！A1”

想法2：将超链接添加到名为“CallButton”的形状

ActiveSheet.Hyperlinks.Add ActiveSheet.Shapes（“CallButton”），“”，“VBA1！A1”