Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, _
  x As Single, y As Single)
 
  If Button = vbRightButton Then
    With MSFlexGrid1
      ' Fokus auf Zelle setzen
      .Row = .MouseRow
      .Col = .MouseCol
    End With
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de