Public oGrid As MSHFlexGrid

Set oGrid = MSHFlexGrid1

Function Auslesen()
  Dim id As Integer
  Dim i As Integer
 
  For i = 1 To 10
    If oGrid.TextMatrix(i, 1) = "" Then
      id = i - 1: Exit For
    End If
  Next i
  ...
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de