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