Private Sub sevGrid1_CellClick(ByVal nRow As Long, _
  ByVal nCol As Long, _
  ByVal Button As Integer, _
  ByVal Shift As Integer)
 
  With sevGrid1
    MsgBox "Zellinhalt = " & " " & .Text(nRow, nCol)
    CellImage ?????
  End With
End Sub