Dim sString As String
  Dim lRow As Long
  Dim i As Integer
 
  With MSFlexGrid1
    ' Zeile, die ausgelesen werden soll
    lRow = 2
    For i = .FixedCols To .Cols - 1
      sString = sString & .TextMatrix(lRow, i) & ";"
    Next i
  End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de