Gruppe
Dialog
Bereich
UserForm
Thema
Zwischen zwei UserForms wechseln, wobei sich die 1. Aktualisiert
Problem
Wie kann ich zwischen zwei UserForms wechseln, wobei jeweils nur eine sichtbar bleibt und sich die erste nach Eintragungen automatisch aktualisiert?
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
ClassModule: frmEintrag
Private Sub cmdEintragen_Click()
Dim intRow As Integer
intRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(intRow, 1) = "Zeile " & intRow
frmEintrag.Hide
frmListe.Show
End Sub
ClassModule: frmListe
Private Sub cmdWeiter_Click()
Unload Me
End
End Sub
Private Sub cmdZumEintrag_Click()
frmListe.Hide
frmEintrag.Show
End Sub
Private Sub UserForm_Activate()
With cbbListe
.List = ActiveSheet.Range("A1").CurrentRegion.Value
.ListIndex = .ListCount - 1
End With
End Sub
Private Sub UserForm_Initialize()
cbbListe.List = ActiveSheet.Range("A1").CurrentRegion.Value
cbbListe.ListIndex = 0
End Sub
StandardModule: basMain
Sub CallForm()
frmListe.Show
End Sub