Gruppe
Dialog
Problem
Eine Zusammenstellung aller eingebauten Excel-Dialoge
ClassModule: Tabelle1
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim vDlg As Variant
On Error Resume Next
vDlg = Range(Target.SubAddress).Offset(0, 1).Value
Application.Dialogs(vDlg).Show
On Error GoTo 0
End Sub
StandardModule: Modul1
Sub SetHyperlinks()
Dim iRow As Integer
ActiveSheet.Hyperlinks.Delete
For iRow = 2 To WorksheetFunction.CountA(Columns(1))
ActiveSheet.Hyperlinks.Add _
anchor:=Cells(iRow, 1), _
Address:="", _
SubAddress:=Cells(iRow, 1).Address(False, False)
Next iRow
End Sub