With ListView1
  For X = 1 To .ListItems.Count
    With .ListItems(I)
      If .Selected Then
        messte$ = .Text 
        seln1$ = .SubItems(1) '1. Spalte
        seln2$ = .SubItems(2) '2. Spalte
        seln3$ = .SubItems(3) '3. Spalte
        seln4$ = .SubItems(4) '4. Spalte
        seln5$ = .SubItems(5) '5. Spalte
        seln6$ = .SubItems(6) '6. Spalte
        seln7$ = .SubItems(7) '7. Spalte
        seln8$ = .SubItems(8) '8. Spalte
        seln9$ = .SubItems(9) '9. Spalte
        messte$ = messte$ + " "
        seln1$ = seln1$ + " "
        seln2$ = seln2$ + " "
 
        Form7.List1.AddItem Left$(messte$, 7) + " " + Left$(seln1$, 15) + " " + _
          Left$(seln2$, 18)
      End If
    End With
  Next X
End With