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
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 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