Gruppe
Dialog
Problem
Die Werte in den TextBoxes sollen sich in Abhängigkeit zum Wert des Drehfeldes mit den Zellinhalten aus den Spalten A:C füllen.
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