Thema: UserForm ausblenden und schließen

Home

Rufen Sie die UserForm auf und geben Sie einen Wert in die TextBox ein. Wenn Sie danach die UserForm ausblenden, bleibt der Wert erhalten, wird sie geschlossen, geht er verloren. UserForm ausblenden und schließen

UserForm ausblenden
- Prozedur: cmdHide_Click
- Art: Ereignis
- Modul: Klassenmodul der UserForm frmHideUnload
- Zweck: UserForm ausblenden und andere UserForm aufrufen
- Ablaufbeschreibung:
  - Aktive UserForm ausblenden
  - Andere UserForm aufrufen
- Code:
```
Private Sub cmdHide_Click()
   Me.Hide
   frmValue.Show
End Sub
```
UserForm schließen
- Prozedur: cmdClose_Click
- Art: Ereignis
- Modul: Klassenmodul der UserForm frmHideUnload
- Zweck: UserForm schließen und andere UserForm aufrufen
- Ablaufbeschreibung:
  - Aktive UserForm schließen
  - Andere UserForm aufrufen
- Code:
```
Private Sub cmdClose_Click()
   Unload Me
   frmValue.Show
End Sub
```
Wert aus 1. UserForm übernehmen
- Prozedur: UserForm_Initialize
- Art: Ereignis
- Modul: Klassenmodul der UserForm frmValue
- Zweck: Text aus der TextBox der 1. UserForm einlesen
- Ablaufbeschreibung:
  - Wert von einer zur anderen TextBox einlesen
- Code:
```
Private Sub UserForm_Initialize()
   TextBox1.Text = frmHideUnload.TextBox1.Text
End Sub
```
2. UserForm schließen
- Prozedur: cmdClose_Click
- Art: Ereignis
- Modul: Klassenmodul der UserForm frmValue
- Zweck: Alle UserForms schließen
- Ablaufbeschreibung:
  - Aktive UserForm schließen
  - Fehlerroutine, falls die 1. UserForm schon geschlossen wurde
  - 1. UserForm schließen
  - Fehlerroutine beenden
- Code:
```
Private Sub cmdClose_Click()
   Unload Me
   On Error Resume Next
    Unload frmHideUnload
   On Error GoTo 0
End Sub
```