Private Sub UserForm_Initialize()
Worksheets("data").Activate
ListBox1.ColumnCount = 9
ListBox1.RowSource = "j2:j10"
Worksheets("Pricelist").Activate
End Sub
Private Sub ListBox1_Change()
Worksheets("data").Activate
ListBox1.ControlSource = "F5"
ListBox1.BoundColumn = 0
Worksheets("Pricelist").Activate
End Sub
Vielen Dank. Mehr Fragen folgen sicher;-)