Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

UserForm-TextBoxes ein- und ausblenden

Gruppe

TextBox

Problem

Wie kann ich UserForm-TextBoxes durch Schaltflächendruck ein- und ausblenden?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

ClassModule: frmAusEin

Private Sub cmdAlle_Click()
   Dim iCounter As Integer
   If cmdAlle.Caption = "Alle Namen ausblenden" Then
      For iCounter = 0 To 7
         Controls(iCounter).Visible = False
      Next iCounter
      cmdAlle.Caption = "Alle Namen einblenden"
   Else
      For iCounter = 0 To 7
         Controls(iCounter).Visible = True
      Next iCounter
      cmdAlle.Caption = "Alle Namen ausblenden"
   End If
End Sub

Private Sub cmdEinsUndZwei_Click()
   If cmdEinsUndZwei.Caption = "Namen 1 und 2 ausblenden" Then
      lblName1.Visible = False
      lblName2.Visible = False
      txtName1.Visible = False
      txtName2.Visible = False
      cmdEinsUndZwei.Caption = "Namen 1 und 2 einblenden"
   Else
      lblName1.Visible = True
      lblName2.Visible = True
      txtName1.Visible = True
      txtName2.Visible = True
      cmdEinsUndZwei.Caption = "Namen 1 und 2 ausblenden"
   End If
End Sub

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   frmAusEin.Show
End Sub