Private Sub ctrl_Grid_RowLoaded(ByVal Row As Long, Item As Object)
 
 
    Dim intArt As Integer
 
    With Item
 
        intArt = .CellText(3)
 
        Select Case intArt
 
            Case 1
 
                .CellText(3) = "2-Achs"
 
            Case 3
                .CellText(3) = "4-Achs"
 
            Case Else
                .CellText(3) = "6-Achs"
 
        End Select
 
 
    End With
 
 
 
End Sub