Private Function PrevCol(Grid1 As Object, ByVal nCol As Long) As Long
  Dim i As Long
  Dim pos As Long
 
  PrevCol = 0
 
  With Grid1
    pos = .Columns(nCol).Position
    For i = 1 To .Cols
      With .Columns(i)
        If .Position = pos - 1 Then
          If .Visible Then PrevCol = i: Exit For
          pos = pos - 1
        End If
      End With
    Next i
  End With
End Function

Private Function NextCol(Grid1 As Object, ByVal nCol As Long) As Long
  Dim i As Long
  Dim pos As Long
 
  NextCol = 0
 
  With Grid1
    pos = .Columns(nCol).Position
    For i = 1 To .Cols
      With .Columns(i)
        If .Position = pos + 1 Then
          If .Visible Then NextCol = i: Exit For
          pos = pos + 1
        End If
      End With
    Next i
  End With
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de