Private Sub sevGrid1_AfterCellEdit(nRow As Long, nCol As Long, _
  ByVal Text As String)
 
    With sevGrid1
       If nCol = 1 Or 3 Or 6 Or 8 Then
          With .SelectedItem
             If nCol = 1 Then
                If .CellText("sitz1") = "$t" Then
                   .CellImage("sitz1") = 4
                   .CellText("sitz1") = "  WC "
                   .CellBold("sitz1") = True
                   .CellText("bb1") = 1
                Else
                   If .CellText("sitz1") = "$k" Then
                   ....
                   ....

    With sevGrid1
        For I = 1 To 22
            If I = 1 Then
               aRs!BusReihe01 = .Text(I, 5)
               aRs!BusSitz01 = .Text(I, 6)
               aRs!BusBb01 = .Text(I, 7)
               aRs!BusSitz02 = .Text(I, 8)
               aRs!BusBb02 = .Text(I, 9)
            End If
            If I = 2 Then
               aRs!BusSitz03 = .Text(I, 1)
               aRs!BusBb03 = .Text(I, 2)
               aRs!BusSitz04 = .Text(I, 3)
               aRs!BusBb04 = .Text(I, 4)
               aRs!BusReihe02 = .Text(I, 5)
               
               aRs!BusSitz05 = .Text(I, 6)
               aRs!BusBb05 = .Text(I, 7)
               aRs!BusSitz06 = .Text(I, 8)
               aRs!BusBb06 = .Text(I, 9)
            End If