Private Sub sevGrid1_RowLoaded(ByVal nRow As Long, Item As _
  sevDataGrid2.ListItem)
    With Item
       If .CellText(3) <> "" Then
          With sevGrid1
             .Columns(3).LockEdit = True
             .Columns(4).LockEdit = True
             .Columns(5).LockEdit = True
             .Columns(6).LockEdit = True
          End With
       End If
    End With
 
    With Item
       If sevGrid1.Recordset.Fields("RtBemerkung").Value <> "" Then
         .CellBold(12) = True
       End If
  End With
End Sub