Public Function f_nGridGetFirstFullVisibleCol(ByRef po_Grid As Object) As Long
    Dim nIdx As Long
    Dim nCol As Long
    Dim nPos As Long
    Dim nFixColsWidth As Long
 
    nFixColsWidth = 0&
    If po_Grid.FixedColCount > 0& Then
       For nIdx = 1 To po_Grid.FixedColCount
            nFixColsWidth = nFixColsWidth + po_Grid.FixedColumns(nIdx).Width
       Next nIdx
    End If
 
    nPos = 0
 
    With po_Grid
       For nIdx = 1 To .Cols
         With .Columns(nIdx)
           If nPos = 0 Or .Position < nPos Then
              If po_Grid.ColIsVisible(nIdx) And _
                 po_Grid.CellLeft(po_Grid.Columns(nIdx).Position) >= _
                 nFixColsWidth Then
                 nCol = nIdx
                 nPos = .Position
              End If
           End If
         End With
       Next nIdx
    End With
 
    f_nGridGetFirstFullVisibleCol = nCol
 
End Function

Public Function f_nGridGetLastFullVisibleCol(ByRef po_Grid As Object) As Long
    Dim nIdx As Long
    Dim nCol As Long
    Dim nPos As Long
    Dim nFixColsWidth As Long
    Dim nMaxWidth As Long
    Dim nRightBorder As Long
    Dim nRightCellBoder As Long
 
    nFixColsWidth = 0&
    If po_Grid.FixedColCount > 0& Then
       For nIdx = 1 To po_Grid.FixedColCount
           nFixColsWidth = nFixColsWidth + po_Grid.FixedColumns(nIdx).Width
       Next nIdx
    End If
 
    nPos = 0
 
    With po_Grid
       nRightBorder = .Width - Screen.TwipsPerPixelX * .ScrollBarSize
 
       For nIdx = 1 To .Cols
 
         With .Columns(nIdx)
           If nPos = 0 Or .Position > nPos Then
              nRightCellBoder = po_Grid.CellLeft(po_Grid.Columns( _
                nIdx).Position) + _
                                po_Grid.CellWidth(po_Grid.Columns( _
                                nIdx).Position)
              If po_Grid.ColIsVisible(nIdx) And nRightCellBoder <= nRightBorder _
              Then
                 nCol = nIdx
                 nPos = .Position
              End If
           End If
         End With
       Next nIdx
    End With
 
    f_nGridGetLastFullVisibleCol = nCol
 
End Function

Public Function f_nGridGetFirstRealVisibleCol(ByRef po_Grid As Object) As Long
    Dim nIdx As Long
    Dim nCol As Long
    Dim nPos As Long
 
    nPos = 0
 
    With po_Grid
       For nIdx = 1 To .Cols
         With .Columns(nIdx)
           If po_Grid.ColIsVisible(nIdx) And (nPos = 0 Or .Position < nPos) Then
              nCol = nIdx
              nPos = .Position
           End If
         End With
       Next nIdx
    End With
 
    f_nGridGetFirstRealVisibleCol = nCol
 
End Function

Tschaui
Woellmi