Gruppe
Dialog
Bereich
UserForm
Thema
UserForm mit und ohne Memory aufrufen
Problem
Eine UserForm soll ausgeblendet und mit Werten wieder aufgerufen werden, wobei alle Textfelder zu leeren sind.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.
ClassModule: frmHide
Private Sub cmdHide_Click()
Hide
End Sub
Private Sub cmdUnload_Click()
Unload Me
End Sub
Private Sub UserForm_Activate()
Dim cntr As Control
For Each cntr In Controls
If TypeName(cntr) = "TextBox" Then
cntr.Text = ""
End If
Next cntr
If lblCalls.Caption = "" Then
lblCalls.Caption = "1"
Else
lblCalls.Caption = CStr(CInt(lblCalls.Caption) + 1)
End If
End Sub
StandardModule: Modul1
Sub CallForm()
frmHide.Show
End Sub