Private Sub Grid1_StartEditMode(ByVal nRow As Long, _
  ByVal nCol As Long, sText As String, bCancel As Boolean)
 
  Dim sKey As String
 
  sKey = Grid1.Columns(nCol).Key
  If sKey = "Bemerkungen" Then
    If Left$(sText, 1) = "#" Then sText = Mid$(sText ,2)
    If Right$(sText, 1) = "#" Then sText = Left$(sText ,Len(sText) - 1)
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de