Thema: Bestellfax über Dialog

ClassModule: frmArtikel

Private Sub cboArtikel_Change()
   With Worksheets("Artikelliste")
      TextBox1.Text = _
         .Cells(cboArtikel.ListIndex + 2, 1).Value
      TextBox2.Text = _
         .Cells(cboArtikel.ListIndex + 2, 3).Value
   End With
End Sub

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   Dim iRow As Integer
   iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
   Cells(iRow, 1).Value = TextBox1.Text
   Cells(iRow, 2).Value = cboArtikel.Value
   Cells(iRow, 3).Value = TextBox3.Text
   Cells(iRow, 4).Value = TextBox2.Text
   Cells(iRow, 5).Value = _
      Cells(iRow, 3).Value * Cells(iRow, 4).Value
End Sub

Private Sub UserForm_Initialize()
   Dim iRow As Integer
   iRow = 2
   With Worksheets("Artikelliste")
      Do Until IsEmpty(.Cells(iRow, 1))
         cboArtikel.AddItem .Cells(iRow, 2).Value
         iRow = iRow + 1
      Loop
   End With
   cboArtikel.ListIndex = 0
End Sub

StandardModule: basMain

Sub CallForm()
   frmArtikel.Show
End Sub

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