für mehrfachmarkierungen in einer listbox muß die Eigenschaft multiselect  auf true gesetzt werden. Und in diesem Zusammenhang, geht dann der Listindex flöten.  Bei Multiselected Listen  wird die Liste in einer Schleife durchlaufen und jeder Eintrag abgefragt ob er ausgewählt ist.

 if Listbox1.selected(i) = true  then
     zeilennr = zeilennr +1      
     Range("A" & zeilennr)  = Listbox1.list(i)
end if