VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Dynamischen Dialog erstellen

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und UserForm