Dim nIndex As Long
With ListView1
  nIndex = .SelectedItem.Index
  Do While nIndex <= .ListItems.Count
    ' Aktuelle Zeile in Variablen abspeichern
    With .ListItems(nIndex)
      Menge = .SubItems(1)
      Leistung = .SubItems(2)
      EP = .SubItems(3)
      GP = .SubItems(4)
    End With
 
    ' Variablen in RichTextBox ausgeben
    With frmTextverarbeitung.RichTextBox1
      .SelText = Menge & vbTab & Leistung & vbTab & EP & vbTab & GP & vbCrLf & _
        vbCrLf
    End With
 
    ' Eine Zeile weiterspringen
    nIndex = nIndex + 1
  Loop
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de