Thema
Zwischen zwei UserForms wechseln, wobei sich die 1. Aktualisiert
Gruppe
UserForm
Problem
Wie kann ich zwischen zwei UserForms wechseln, wobei jeweils nur eine sichtbar bleibt und sich die erste nach Eintragungen automatisch aktualisiert?
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