dim Lst_Itm as ListItem
dim Zähler as long
 
for zähler = <erste gefüllte Zeile> to lngNumRow
 
set lst_itm = <Listview>.Listitems.add (,,Range("a" & zähler & ""))
       lst_itm.subitem(1) = range("b" & zähler & ""))
       lst_itm.subitem(2) = range("c" & zähler & ""))
 
' usw bis zur letzten gefüllten spalte
 
next zähler