Gruppe
Dialog
Bereich
UserForm
Thema
Dynamischen Dialog erstellen
Problem
Wie kann ich mir in einem Dialog in Abhängigkeit der Aktivierung eines Optionsfeldes ein Label oder eine EditBox anzeigen lassen?
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
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