Dim i As Long
Dim nSelCount As Long
 
With Grid1
  Grid2.LockUpdate True
  nSelCount = .SelCount
  For i = 0 To nSelCount - 1
    Grid2.AddItem .List(.SelRow(i))
  Next i
  Grid2.LockUpdate False
  Grid2.Refresh
End With

Dim i As Long
Dim nSelCount As Long
Dim sTemp As String
Dim u As Long
 
With Grid1
  Grid2.LockUpdate True
  nSelCount = .SelCount
  For i = 0 To nSelCount - 1
    sTemp = ""
    For u = 1 To .Cols
      If u > 1 Then sTemp = sTemp & vbTab
      sTemp = sTemp & .Text(.SelRow(i), u)
    Next u
    Grid2.AddItem sTemp
  Next i
  Grid2.LockUpdate False
  Grid2.Refresh
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de