"
+ strHTML &= " | " & lvwArtikel.Items(icount2).SubItems(1).Text & " | " & lvwArtikel.Items(icount2).SubItems(6).Text & " | " & lvwArtikel.Items(icount2).SubItems(7).Text & " | " & lvwArtikel.Items(icount2).SubItems(8).Text & " | " & lvwArtikel.Items(icount2).SubItems(2).Text & " | " & lvwArtikel.Items(icount2).SubItems(3).Text & " | " & lvwArtikel.Items(icount2).SubItems(4).Text & " | "
+ strHTML &= "
"
+ End If
+ Next
+ strHTML &= "