Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und UserForm