Listbox: fylde, vælge og gemme

Kære eksperter,

Jeg har en listbox, lbindsatsfelter, i en userform. Den fyldes med denne kode ved userform_activate:

---
IFS = Worksheets("Konfiguration").Range("ao53").End(xlUp).Row

lbindsatsfelter.RowSource = "ao33" & ":ap" & IFS

With lbindsatsfelter
.ColumnCount = 2
.ColumnWidths = "180,20"
End With
---

Når userformen vises, viser den et ID med oplysninger. Der skal så kunne vælges flere (multiselect er true) linjer i userformen, og når der så klikkes på Gem-knappen, skal der i arket "Konfiguration" gemmes det tal, der står i comboboxen ID, cbid, i kolonnen AP. Dette viser, at indsatsfeltet er tilknyttet det angivne ID. Det PRØVER jeg at gøre med denne kode, som (som sædvanligt) er sakset fra kabbak:

---
Dim i As Integer

For i = 0 To lbindsatsfelter.ListCount - 1

If lbindsatsfelter.Selected(i) Then

Worksheets("Konfiguration").Range("AP33").Offset(i, 0) = cbid.Text

End If

Next i
---

Det virker med EN valgt værdi, men hvis jeg vælger flere, så slår ændringen ikke igennem. Why? Og et andet spgm. Hvis jeg nu vil fjerne tilknytningen, hvordan kan jeg så gøre det på en smart måde?

På forhånd tak :)

gladhund