Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zusammenstellung der eingebauten Dialoge

Gruppe

Anwendung

Problem

Eine Zusammenstellung aller eingebauten Excel-Dialoge

Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.

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