Private Sub grdAdr_EnterCell()
  Static LastRow As Long
 
  With grdAdr
    If LastRow <> .Row Then
      If .TextMatrix(.Row, 0) = "Männlich" Then
        .BackColorSel = vbBlue
      ElseIf .TextMatrix(.Row, 0) = "Weiblich" Then
        .BackColorSel = vbRed
      End If
      LastRow = .Row
    End If
  End With
End Sub