Private Sub UserForm_Initialize()
Dim wks As Worksheet
Dim iRow As Integer
Set wks = Worksheets("Waren")
iRow = wks.Cells(Rows.Count, 1).End(xlUp).Row
With lstWaren
.RowSource = wks.Name & "!A2:C" & iRow
.ColumnWidths = "40;80;60"
End With
lstKorb.ColumnWidths = "40;80;60"
End Sub
Private Sub lstWaren_Click()
Dim iCounter As Integer
lstKorb.AddItem
For iCounter = 0 To 2
If iCounter < 2 Then
lstKorb.List(lstKorb.ListCount - 1, iCounter) = _
lstWaren.List(lstWaren.ListIndex, iCounter)
Else
lstKorb.List(lstKorb.ListCount - 1, iCounter) = _
Format(lstWaren.List(lstWaren.ListIndex, iCounter), "0.00")
End If
Next iCounter
End Sub
Private Sub lstKorb_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
lstKorb.RemoveItem lstKorb.ListIndex
End Sub