oGrid.AllowColumnReorder=TRUE

oGrid.CellLeft(nCol)

With oGRD
  If .RowIsVisible(nRow) Then
     oTBOX.Width = .Columns(nCol).Width
     oTBOX.Height = .RowHeight
     oTBOX.Move .CellLeft(nCol) - f_nGetSevGRD3FixColsOffset(oGRD) + XOffset, _
                .CellTop(nRow, nCol) + YOffset
  End If
End With

nCol=1  ==> .CellLeft(nCol)

'die "1" wird natürlich als Parameter übergeben ;-)
With oGRD
  If .RowIsVisible(nRow) Then
     oTBOX.Width = .Columns(1).Width
     oTBOX.Height = .RowHeight
     oTBOX.Move .CellLeft(1) - f_nGetSevGRD3FixColsOffset(oGRD) + XOffset, _
                .CellTop(nRow, 1) + YOffset
  End If
End With

Tschaui
Woellmi

' Ermittelt die erste sichtbare Spalte im sevDataGrid Control
Public Function GridGetFirstVisibleCol(ByRef oGrid As Object) As Long
  Dim i As Long
  Dim nCol As Long
  Dim nPos As Long
 
  nPos = 0
  With oGrid
    For i = 1 To .Cols
      With .Columns(i)
        If nPos = 0 Or .Position < nPos Then
          nCol = i
          nPos = .Position
        End If
      End With
    Next i
  End With
 
  GridGetFirstVisibleCol = nCol
End Function

nCol = GridGetFirstVisibleCol(Grid1)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Tschaui
Woellmi

Public Function f_nGridGetReqVisibleCol(ByRef po_Grid As Object, _
                                        Optional ByVal n_ReqCol As Long = 1&) _
                                        As Long
    'Quelle: "GridGetFirstVisibleCol" => vb@rchiv, D. Otter, 10-2016
    '
    'Rückgabe der "Col" einer angeforderten benannten sichtbaren Spalte 
    '(Default: 1, also erste links). Liegt die angeforderte Spalte 
    'ausserhalb des Range {1 .. ".Cols"}, wird "Col" für die 
    'erste sichtbare linke Spalte zurück gegeben (Fehlerfall).
    '
    Dim nIdx As Long
    Dim nCol As Long
    Dim nPos As Long
 
    nPos = 0
 
    If n_ReqCol < 1& Or n_ReqCol > po_Grid.Cols Then
       nCol = f_nGridGetFirstVisibleCol(po_Grid)
    Else
       With po_Grid
          For nIdx = 1& To .Cols
            With .Columns(nIdx)
              If nPos = 0 Or .Position = n_ReqCol Then
                 nCol = nIdx
                 nPos = .Position
                 If .Position = n_ReqCol Then
                    Exit For
                 End If
              End If
            End With
          Next nIdx
       End With
    End If
    f_nGridGetReqVisibleCol = nCol
 
End Function

Tschaui
Woellmi

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

if po_Grid.Columns(po_Grid.Columns(nIdx).Position).Visible Then

Tschaui
Woellmi

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