Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: Tabelle12

Private Sub CommandButton1_Click()
    UserForm1.Show
End Sub

ClassModule: frmNoEmptys

Private Sub cmdContinue_Click()
    Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim iRow As Integer, iRowL As Integer
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = 1 To iRowL
      If Not IsEmpty(Cells(iRow, 1)) Then
         cbonoemptys.AddItem Cells(iRow, 1).Value
      End If
   Next iRow
End Sub

StandardModule: basMain

Sub CallForm()
   frmNoEmptys.Show
End Sub

    

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