Gruppe
Dialog
Bereich
ComboBox
Thema
Bestellfax über Dialog
Problem
Wie kann ich Bestellartikl über einen Dialog auswählen und in eine Faxbestellung eintragen lassen?
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
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