Dim i As Long
Dim nSelCount As Long
Dim sBuffer As String
 
With Grid1
  nSelCount = .SelCount
  For i = 0 To nSelCount - 1
    sBuffer = sBuffer & .Text(.SelRow(i), "Spalte") & vbCrLf
  Next i
End With
 
Clipboard.Clear
Clipboard.SetText sBuffer

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de