gegevens in een lijst plaatsen

[ACER10]

Na mijn vorige vraag waar het bijgevoegde voorbeeld fout was nu een nieuwe poging...

Ik geraak er maar niet om bepaalde gegevens die via een userform ingegeven
in een lijst te plaatsen op een ander blad...
kan iemand mij helpen ?

ik heb een klein voorbeeldje bijgesloten.
Bekijk bijlage voorbeeld.xls

Alvast bedankt

 

[gast0660]

Hi,

 

[ACER10]

Hi,

Bedankt hoor.

 

[HSV]

Volgens mij is met onderstaande code het resultaat beter.

Private Sub CommandButton1_Click()
Sheets("Resultaatslijst").Cells(Rows.Count, 2).End(xlUp).offset(1).Resize(, 3).Value = Array(ComboBox1.Value, ComboBox2.Value, ComboBox3.Value)
For j = 1 To 3
 Me("combobox" & j).ListIndex = -1
Next j
End Sub