Dim sData As String
Dim i As Long
Dim oItem As ListItem
 
sData = ""
With ListView1
  For Each oItem In .ListItems
    sData = sData & oItem.Text
    For i = 1 To .ColumnHeaders.Count - 1
      sData = sData & vbTab & oItem.SubItems(i)
    Next i
    sData = sData & vbCrLf
  Next   
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de