Private Sub Grid1_StartEditMode(ByVal nRow As Long, ByVal nCol As Long, _
  sText As String, bCancel As Boolean)
 
  ' Input-Format enstprechend der Zeile setzen
  With Grid1.Columns(nCol)
    Select Case nRow
      Case 1
        .InputType = INPUT_CURRENCY
        .Decimals = 2
        .MaxInputLength = 12
      Case 2
        .InputType = INPUT_CURRENCY
        .Decimals = 0
        .MaxInputLength = 5
      Case 3
        .InputType = INPUT_TEXT
        .MaxInputLength = 50
    End Select
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de