Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: frmAddress

Private Sub cboOrt_Change()
   Dim iCol As Integer
   iCol = 2
   cboOrtsteil.Clear
   With Worksheets("Daten")
      Do Until IsEmpty(.Cells(cboort.ListIndex + 1, iCol))
         cboOrtsteil.AddItem .Cells(cboOrt.ListIndex + 1, iCol)
         iCol = iCol + 1
      Wend
   End With
   cboOrtsteil.ListIndex = 0
End Sub

Private Sub cmdContinue_Click()
   Dim iRow As Integer
   If cboOrtsteil.ListIndex <> -1 Then
      iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
      Cells(iRow, 1) = cboOrt.Value
      Cells(iRow, 2) = cboOrtsteil.Value
   End If
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   cboOrt.ListIndex = 0
End Sub

StandardModule: basMain

Sub CallForm()
   frmAddress.Show
End Sub

    

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