Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Tabellenblatt-Hyperlink über UserForm aufrufen

Gruppe

Internet

Problem

Wie kann ich über eine UserForm-Schaltfläche einen Hyperlink aus dem aktiven Arbeitsblatt und die damit verbundene Datei aufrufen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

ClassModule: frmHyperlink

Private Sub cmdHyperlink_Click()
   Unload Me
   If Dir(Range("A1").Hyperlinks(1).Address) = "" Then
      Beep
      MsgBox "Hyperlink-Adresse wurde nicht gefunden!"
   Else
      Range("A1").Hyperlinks(1).Follow
   End If
End Sub

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   frmHyperlink.Show
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Extern und Internet