Gruppe
Link
Problem
Der Hyperlink soll dynamisch - relativ zum Pfad der Arbeitsmappe - gehalten werden.
StandardModule: basMain
Sub CallForm()
frmDynamisch.Show
End Sub
ClassModule: frmDynamisch
Private Sub cmdContinue_Click()
Unload Me
End Sub
Private Sub OptionButton1_Change()
If OptionButton1.Value = True Then
Me.Width = 226.5
Else
Me.Width = 110.25
End If
End Sub
Private Sub UserForm_Initialize()
Dim iRow As Integer
For iRow = 1 To 10
ListBox1.AddItem "Zeile " & iRow
Next iRow
End Sub