excel VBA

[HWV]

SNB,

Bedankt voor de reactie.

Ik krijg een foutmelding op For j =
een variabele is niet gedefinieerd.

Ik was ook al bezig met de listbox. ( veel zoeken op het web)

Private Sub Cmd_OK_Click()
    On Error Resume Next
    Dim lAantal As Long
    lAantal = ListBox1.ListCount
[COLOR="Red"]    Me.ListBox1.ColumnWidths = "40;200;50"[/COLOR]
    ListBox1.AddItem
    ListBox1.List(lAantal, 0) = Cbo_Product.Value
    ListBox1.List(lAantal, 1) = ComboBox1.Value
    ListBox1.List(lAantal, 2) = oRng.Offset(0, 27).Value
End Sub

Deze code bepaal ik de kolommen.

Private Sub CommandButton3_Click()
Dim i As Integer

For i = 0 To ListBox1.ListCount - 1
    If i + 11 > 100 Then Exit Sub
    ListBox1.Selected(i) = True
    Sheets("orderbon").Cells(i + 17, 2) = (CStr(Format(ListBox1.text, "")))
Next i
End Sub

En hiermee schrijf ik ze weg in mijn orderformulier, enkel zit ik dan nog met het invullen van de aantallen in het formulier.
Is hier een oplossing voor ?

Groet HWV