GlobaLevel,
Dieses sollte es tun:
Für i = 0 zu Me.ListBox1.ListCount - 1
Wenn Me.ListBox1.Selected (i) = dann ausrichten
myarray (0, 0) = ListBox1.List (i, 0)
myarray (0, 1) = ListBox1.List (i, 1)
myarray (0, 2) = ListBox1.List (i, 2)
Beenden wenn
Zunächst I
Patrick