Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles _
  DataGridView1.CellFormatting
 
If DataGridView1.Columns(e.ColumnIndex).Name.Equals("Spaltenname") Then
   If e.Value = 1 Then
       CType(sender, DataGridView).Rows(e.RowIndex).DefaultCellStyle.ForeColor _
         = Color.Red
                Exit Sub
    Elseif e.Value = 2 Then
       CType(sender, DataGridView).Rows(e.RowIndex).DefaultCellStyle.ForeColor _
         = Color.Black
    End If
End If
End Sub