Private Sub MSFlexListe_MouseUp(Button As Integer, _
  Shift As Integer, x As Single, y As Single)
  If Button = vbRightButton Then
    Dim nRow As Long
    Dim nCol As Long
    Dim nRowCur As Long
    Dim nColCur As Long
 
    With MSFlexListe
      nRowCur = .Row
      nColCur = .Col
 
      nRow = .MouseRow
      nCol = .MouseCol
 
      If nRow >= 0 And nCol >= 0 Then
        .Row = nRow
        .Col = nCol
 
        If x >= .CellLeft And x <= .CellLeft + .CellWidth And _
          y >= .CellTop And y <= .CellTop + .CellHeight Then
 
          PopupMenu mnuRechteMaustaste
        Else
 
          .Row = nRowCur
          .Col = nColCur
        End If
      End If
    End With
  End If
End Sub

Private Sub mnuRechteMaustaste_Click()
Clipboard.Clear
Clipboard.SetText MSFlexListe.Clip, vbCFText