Gruppe
Dialog
Problem
Wie kann ich Bestellartikl über einen Dialog auswählen und in eine Faxbestellung eintragen lassen?
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