Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Dynamischen Dialog erstellen

Gruppe

UserForm

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