Private Sub SevGrid_EditKeyPress(Index As Integer, KeyAscii As Integer)
Dim txt$
 
   If KeyAscii = 13 Then
      KeyAscii = 0
      SendKeys "{TAB}"
      Exit Sub
   End If
 
   If KeyAscii = 8 Then
      Exit Sub
   End If
 
   txt = SevGrid(Index).EditText
 
   Select Case Index
      Case 0
         Select Case SevGrid(0).Columns(SevGrid(0).Col).Key
            Case "bez"
               'wie kann man das anders lösen?
               If Len(txt) + 1 > 30 Then
                  KeyAscii = 0
               End If
            Case "dicke"
               '...
            Case "wert"
               '...
         End Select
      Case 1
         '...
      Case 2
         '...
   End Select
 
End Sub