Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

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?

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