Private Sub grdAuftrag_BeforeUpdate(ByVal nRow As Long, ByVal nCol As Long, _
  sText As String, Cancel As Integer)
  'Eingabeprüfungen
  Select Case nCol
     Case 2 'artnr
       '...
     Case 3 'menge
      If Trim(grdAuftrag.Text(nRow, 2)) = "" Then
        MsgBox "Bitte zuerst eine Artikelnummer eingeben!", vbExclamation
        Cancel = 2
      End If
  End Select
End Sub