Gruppe
Extern
Problem
Wie kann ich über eine UserForm-Schaltfläche einen Hyperlink aus dem aktiven Arbeitsblatt und die damit verbundene Datei aufrufen?
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