VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zusammenstellung der eingebauten Dialoge

Gruppe

Dialog

Bereich

Anwendung

Thema

Zusammenstellung der eingebauten Dialoge

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und Anwendung